ПАСКАЛЬ!! Найти сумму и количество натуральных чисел в интервале от 0 до 50, оканчивающиеся на цифру k
ПАСКАЛЬ!!
Найти сумму и количество натуральных чисел в интервале от 0 до 50, оканчивающиеся на цифру k
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы