Var i, p: integer; m: array [1..4] of integer; begin writeln('введите 4 числа: '); for i : = 1 to 4 do readln (m[i]); p : = 0; writeln('четные числа кратные 3: '); for i : = 1 to 4 do if (m[i] mod 2 = 0) and (m[i] mod 3 = 0) then begin write (m[i], ' '); inc(p); end; if p = 0 then write('таковых нет'); end.
Спасибо
Ответ дал: Гость
пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб
(около кола _колокола и на колах _колокола)
Ответ дал: Гость
varb: array [1..8] of integer; r,q: integer; begin for r: =1 to 8 do begin q: =0; read(b[r]); end; for r: =1 to 8 do if b[r] mod 2=1 then q: =q+b[r]; writeln; writeln('сумма нечетных чисел равна ',q); end.
Популярные вопросы