if N<0 then write('Некорректный ввод: значение должно быть положительным') else
begin
case N.Round of
0..99:B:=N*0.96;
100..500:B:=N*1.68;
else B:=N*2.24;
end;
append(output,'output.txt');
write(output,'Использовано энергии '+N+' кВт на сумму '+B+' рублей');
end;
end.
Примечание:
Программа может выдать ошибку при попытке подключения к файлу output.txt в коренной папке Паскаля. В таком случае нужно создать другой файл, и поместить его в ту же папку, после чего заменить имя 'output.txt' на имя нового файла в процедурах append и write.
#1:
begin
var a,b,c,d:real;
write('Введите стороны A B прямоугольника: '); readln(A,B);
write('Введите стороны C D прямоугольника: '); readln(C,D);
write('Площади прямоугольников ',(A*B = C*D)? 'равны':'не равны');
end.
#2:
begin
var a,b,c:real;
write('Введите стоимость трёх покупок: '); readln(A,B,C);
write('Дисконтная карта ', ((B>A) and (C>A+B))? 'получена':'не получена');
end.
#3:
begin
var AB,CD,MN: real;
write('Введите длину отрезков AB,CD,MN: '); readln(AB,CD,MN);
write('Отрезки ',(((AB+CD)>MN) and ((AB+MN)>CD) and ((CD+MN)>AB))? 'могут':'не могут', ' быть сторонами треугольника');
end.
#4:
begin
var A,B:real;
write('Введите сторону первого квадрата: '); readln(A);
write('Введите площадь второго квадрата: '); readln(B);
write('Площади заданных квадратов ', (A.Sqr=B)? 'равны':'не равны');
end.
begin
var N,B:real;
write('Введите количество кВт: '); readln(N);
if N<0 then write('Некорректный ввод: значение должно быть положительным') else
begin
case N.Round of
0..99:B:=N*0.96;
100..500:B:=N*1.68;
else B:=N*2.24;
end;
append(output,'output.txt');
write(output,'Использовано энергии '+N+' кВт на сумму '+B+' рублей');
end;
end.
Примечание:
Программа может выдать ошибку при попытке подключения к файлу output.txt в коренной папке Паскаля. В таком случае нужно создать другой файл, и поместить его в ту же папку, после чего заменить имя 'output.txt' на имя нового файла в процедурах append и write.