mimiDi
Опубликовано 7 лет назад по предмету Информатика от mimiDi


Составье програму вычесления суммы всех трехзначных чисел ,кратных 17???

  1. Ответ
    Ответ дан VIooIV

    var I,s:integer;

    begin

    writeln('Summa ....');

    for i:=100 to 999 do

    if i mod 17 =0 then s:=s+i else s:=s+0;

    writeln(s)

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц