Program zadacha; const c = 4; max = 50; var a, b: integer; begin a : = c; while a < max do begin if a mod c = 0 then b : = b + a; a : = a + 1; end; writeln('сума чисел, кратних ', c, ' і менше ', max, ' становить ', b); readln; end.
Спасибо
Ответ дал: Гость
(телефон) поверчу волшебный круг,- и меня услышит друг. (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это )
Популярные вопросы