Паскаль, сумма нечетных чисел (1-100), кратных 3

ERESYUR ERESYUR    2   23.08.2019 06:20    0

Ответы
lebedeva2303 lebedeva2303  05.10.2020 14:04
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 100 do if (i mod 3=0) and (i mod 2<>0)
then sum:=sum+i;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика