ввести число ...если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять!
if x>8 then y:=x/4 else y:=x*5
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.