Program z1;
var x:integer;
y:real;
begin
Writeln('Введите x');
readln(x);
y:=1/(x-15);
writeln(x:5:2);
readln;
end.
Интернет магазин наверное
Элементарно.Перед else не пишется ;
Попробуй добавить writeln
Проверь перед else должен быть ещё end(т.к подсистема)
Все на фотке, но нужно 20 символов, поэтому, привет, я - Вера
Решение показано в прилагаемом файле.
Формула:
=ЕСЛИ(A1<=100;A1*1,5;ЕСЛИ(A1<300;A1*1,8;A1*2))