Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дано все двузначные числа. Найти количество и сумму кратных 5 (Язык Паскаль)

Ответ оставил Гость

Var
    i: integer;
    k := 0;
    s := 0;

begin
    for i := 10 to 99 do
        if i mod 5 = 0 then begin
            s := s + i;
            k := k + 1;
        end;
   
    writeln(количество  = , k, и сумму = , s);
end.