ПОМОГИТЕ С ИКТ !!! ПАСКАЛЬ ! ПРОШУ !
___________________________________
Задача в паскале:
- Найти количество и сумму двузначных чисел кратных 13. (от 10 до 99).
Только прошу, не используйте сложные операторы и т.д., у нас только основы - недавно начали проходить циклы.
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
