Ввести номер месяца и номер дня, вывести число дней, оставшихся до нового года. пример: введите номер месяца 12 введите день 25 до нового года осталось 6 дней.

166

299

Посмотреть ответы 2

Ответы на вопрос:

victoriya0205

Информатика

4,4(85 оценок)

Const days: array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31); var m,d,k,i: integer; begin writeln('введите номер месяца'); readln(m); writeln('введите день'); readln(d); k: =0; for i: =1 to m-1 do k: =k+days[i]; k: =365-k-d; writeln('до нового года осталось ' ,k,' дней (день/дня)'); end. пример: введите номер месяца 2 введите день 12 до нового года осталось 322 дней (день/дня)

nastyaplokhovanastya

Информатика

4,4(80 оценок)

Const n=10; var a: array[1..n] of real; i,k: integer; s: real; begin s: =0; k: =0; for i: =1 to n do begin readln(a[i]); if a[i]< 0 then s: =s+a[i]; if (a[i]< 5) and (a[i]> -7) then inc(k); end; writeln(s,' ',k); end.