ПАСКАЛЬ!! Отыскать сумму и количество естественных чисел в промежутке от 0

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

Задать свой вопрос
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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт