Предмет: Информатика,
автор: Ева45671
Решите пожалуйста #7 и #8
Приложения:

Ответы
Автор ответа:
1
1)
var b:integer;a:boolean;
begin
a:=true;
if (a) then
b:=4
else
b:=-4;
writeln(b);
end.
2)
var x,y:real;
begin
write('Введите х: ');
readln(x);
if (x>7)then
y:=x-3
else if (x<-5) then
y:=4*sqr(x)
else
y:=5;
write('y = ');
write(y);
end.
var b:integer;a:boolean;
begin
a:=true;
if (a) then
b:=4
else
b:=-4;
writeln(b);
end.
2)
var x,y:real;
begin
write('Введите х: ');
readln(x);
if (x>7)then
y:=x-3
else if (x<-5) then
y:=4*sqr(x)
else
y:=5;
write('y = ');
write(y);
end.
Интересные вопросы
Предмет: Химия,
автор: annaboikoo
Предмет: История,
автор: sashaza774
Предмет: История,
автор: hbsajzbsbs6918
Предмет: Экономика,
автор: Ольга1312
Предмет: Математика,
автор: Али281