1. в цельночисленном массиве а(7) подсчитать количество элементов, больших числа 6? 2. в массиве р(12) вычислить произведение всех четных элементов? (язык паскаль)

296

486

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

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

bdhdt

Информатика

4,5(83 оценок)

Year = 2013; while (true) do begin inc(year); fl : = 3; if (year mod 2 ! = 0) then del(fl); if (year mod 3 ! = 0) then dec(fl); if (year mod 5 ! = 0) then dec(fl); if (fl = 2) then writeln( 'две совпали' ); if (fl = 3) then begin writeln( 'все три совпали' ); break; end; end;