Question

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

Answer 1

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.