Найти сумму и количество натуральных чисел в интервале от 0 до 50, оканчивающиеся на цифру k

asyazakharchenko3011 asyazakharchenko3011    2   27.05.2019 00:00    1

Ответы
ViktorNiktophorov ViktorNiktophorov  23.06.2020 16:36
Uses crt;
var i,k,kol,s:integer;
begin
kol:=0;
s:=0;
read(k);
for i:=1 to 50 do
if i mod 10=k then
begin
inc(kol);
s:=s+i;
end;
writeln(s);
writeln(kol);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика