Помогите пожалуйста разобрать что там написано,зрение подводит(
Даю 50 балов!
Приложения:
![](https://st.uroker.com/files/5ae/5ae45390069eeef53a175290376e4201.jpeg)
restIess:
программа ищет сумму чисел, которые оканчиваются на 5)
Ответы
Ответ дал:
2
//сумма чисел, оканчивающихся на 5
var
k,n : integer;
sum : integer;
begin
k:=0;
sum:= 0;
repeat
readln(n);
if n mod 10 = 5 then
sum := sum + n;
inc(k);
until n = 0;
writeln('Количество чисел, оканчивающихся на 5:',k);
writeln('Сумма чисел, оканчивающихся на 5:',sum);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад