На вход подается число не меньше 0.Вывести число от данного до 10. если число изначально больше 10 завершить программу
Program lol;
var a:integer;
beginreadln(a);
if(a>0) and (a<10) then writeln(a)
else
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Program lol;
var a:integer;
beginreadln(a);
if(a>0) and (a<10) then writeln(a)
else
end.