Нужно написать код программы. Ну как вы решили эту задачу в ABCPascal.
Приложения:
Ответы
Ответ дал:
0
var
x, y: integer;
begin
readln(x);
if(x <= 5) then y := 2 * x
else y := x + 5;
write(y);
end.
x, y: integer;
begin
readln(x);
if(x <= 5) then y := 2 * x
else y := x + 5;
write(y);
end.
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!
begin var x:=ReadReal; Writeln(x<=5?x*x:x+5) end.
// Внимание! Если программа не работает, обновите версию!
begin var x:=ReadReal; Writeln(x<=5?x*x:x+5) end.
Вас заинтересует
2 года назад
6 лет назад
9 лет назад