Var i,sum: integer; Begin sum:=0; for i:=20 to 40 do begin if i mod 3=0 then begin writeln('Число: ',i); sum:=sum+i; end; end; writeln('Сумма чисел: ',sum); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
