Регистрация
Войти
Стать экспертом Правила
Информатика

составьте программу нахождения количества всех целых положительных чисел от n до 25

ОТВЕТЫ
Program n1;
var i,n,k: integer;
begin
k:=0;
readln(n);
for i:=n to 25 do if i>0 then k:=k+1;
writeln(k);
end.
630
Нужен срочно ответ?
1 Зарегистрируйся
2 Пополни баланс баллов
3 Назначь баллы за ответ
Чем больше баллов, тем выше веротяность скорого ответа
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам