Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Ввести число. если оно больше 8 разделить его на 4 если меньше или равно 8 то умножить на 5

Ответ оставил Гость

Var x:real;
begin
readln(x);
if(x>8) then x:= x/4
else x:=x*5;
writeln(x);
end.