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


составьте программу для нахождения суммы чисел 20 до 60 кратных пяти.по турбо паскалю

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

    var

    i,s:integer;

    begin

    s:=0;

    for i:=20 to 60 do

    if i mod 5 =0 then s:=s+i;

    writeln(s);

    end.

  2. Ответ
    Ответ дан ivanpakalnishkis

    var

     i,s:longint;

    begin

     for i:=20 to 60 do if i mod 5=0 then inc(s,i);

    writeln(s);

    end.

     

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

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