Предмет: Информатика,
автор: IrinaRevunenkova
Запишите програму на языке Паскаль
Приложения:
Ответы
Автор ответа:
0
program p;
var x,y: real;
begin
readln(x);
if x<=0
then y:=0 else *второе условие*;
writeln( y:3:0);
end.
var x,y: real;
begin
readln(x);
if x<=0
then y:=0 else *второе условие*;
writeln( y:3:0);
end.
katyaklimovich:
вроде так,но не точно
Похожие вопросы
Предмет: Информатика,
автор: Mar06745
Предмет: Биология,
автор: troskinadiana6
Предмет: Биология,
автор: eugeniodepez
Предмет: Алгебра,
автор: okazanova
Предмет: Математика,
автор: оылвоов