profile
Опубликовано 5 лет назад по предмету Информатика от VVira

ПОМОГИТЕ С ИКТ !!! ПАСКАЛЬ ! ПРОШУ !
___________________________________
Задача в паскале:
- Найти количество и сумму двузначных чисел кратных 13. (от 10 до 99).

Только прошу, не используйте сложные операторы и т.д., у нас только основы - недавно начали проходить циклы.

  1. Ответ
    Ответ дан Аккаунт удален
    var
      i,n,s:integer;
    begin
      s:=0; i:=13; n:=0;
      while i<100 do
      begin s:=s+i; n:=n+1; i:=i+13 end;
      Writeln('Сумма=',s,', количество=',n)
    end.

    Результат выполнения программы:
    Сумма=364, количество=7