Var x,y:real; begin x :=-10; while x = 10 do begin if 5-x = 0 then y := sqrt(5-x); writeln( x: , x, - id1734019120210101 от gumballl1 01.01.2021 09:50

Question

Информатика: Var x,y:real; begin x :=-10; while x = 10 do begin if 5-x = 0 then y := sqrt(5-x); writeln( x: , x, ; y: ,y); x := x + 1; end; end. Как вместо нуля напротив y вывести слово error? Паскаль

gumballl1 · Accepted Answer

1. переговоры в интернете не требуют встречи лицом к лицу, поэтому это экономит на переезд в другой город(страну)
2.дистанционное обучение- самообучение не находясь в школе Минусы- большую часть программы ребенок может не понять ребенок
Плюсы- ребенок сможет пройти всю программу обучения не тратя деньги и энергию на поход в школу пешком или на автобусе
Очное- ребенок учиться лицом к лицу с учителями и своими сверсниками
минусы- трата время и денег на путь в школу
плюсы- с объяснением учителей ребенок понимает большуу часть школьной программы

Var x,y:real; begin

x :=-10;

while x <= 10 do begin

if 5-x >= 0 then

y := sqrt(5-x);

writeln('x: ', x, '; y: ',y);

x := x + 1;

end;

end.

Как вместо нуля напротив y вывести слово error?
Паскаль

MOGZ ответил

Var x,y:real; begin x :=-10;while x <= 10 do begin if 5-x >= 0 then y := sqrt(5-x); writeln('x: ', x, '; y: ',y); x := x + 1; end;end.Как вместо нуля напротив y вывести слово error?Паскаль

MOGZ ответил

Var x,y:real; begin

x :=-10;

while x <= 10 do begin

if 5-x >= 0 then

y := sqrt(5-x);

writeln('x: ', x, '; y: ',y);

x := x + 1;

end;

end.

Как вместо нуля напротив y вывести слово error?
Паскаль