Структурные операторы в языке pascal: развилка и выбор. 1.даны целые цисла m и n. если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями. 2.составить программу, которая по заданному году и номера месяца m определяет количество дней в этом месяце.

262

474

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

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

Marat445372

Информатика

4,6(49 оценок)

Первая прога: program pr1; uses crt var m,n: real; begin clrscr; writeln('insert the numbers'); readln(m, n); if m < > n then begin if m > n then begin n: =m; end else begin m: =n; writeln(m,n); end; end else begin m: =0; n: =0; writeln(m,n); end; end. вторая прога: program pr2; ues crt var y,m,d,k: integer; begin clrscr; writeln('insert the year); readln(y); writeln('insert the month'); readln(m); if m > 12 then begin writeln('error'); end; if m mod 2 < > 0 then begin d: = 31; end; if m=2 then begin d: = 28; end; if m mod 2 = 0 then begin d: =30; end; writeln('the number of the days in your month: '); writeln(d); end.

Brozuca

Информатика

4,6(42 оценок)

Герань крокус кактускактус герань крокус крокус кактус герань и так по кругу. следовательно каждые 3 дня цветы будут в стандартном положении: герань,крокус,кактус.37/3=12 целых 1 в остатке 1-первый случай после изменения. следовательно цветы будут в таком порядке: кактус, герань, крокус