Выполни алгоритм напиши любое число до 10

Выполни алгоритм напиши любое число до 10
Гость
Ответ(ы) на вопрос:
Гость
var a,b:integer; begin readln(a); if a>5 then b:=a+1 else b:=a-2; writeln(b); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы