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