Напишите программу вычисления...

Тема в разделе "Информатика", создана пользователем liliy@, 25 мар 2010.

  1. liliy@

    liliy@ New Member

    Напишите программу вычисления суммы квадратов всех натуральных двузначных чисел, кратных5
     
  2. Klokerst

    Klokerst New Member

    Program summa;
    var a,s,i:integer;
    begin
    s:=0;
    for i:=10 to 99 do begin
    if (i mod 5=0) then s:=s+sqr(i);
    end;
    writeln(s);
    end.
     

Поделиться этой страницей

Наша группа