Uses crt; var n, sum:integer; begin n := 100; while n < 1000 do begin sum += n; n += 4; end; writeln('Сумма всех трёхзначных чисел, кратных 4= ',sum); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
