Регистрация
Настюшка12305ш384
18.10.2022 18:03
Информатика
Есть ответ 👍

Проанализируйте работу программы.
Program m_1;
Var X, Y: integer;
Begin
X := 1;
Y := 1;
While X < 5 do
Begin
Y := Y*2;
X := X+1;
End;
End.
Какое значение примет Y после завершения программы?​

293
378
Посмотреть ответы 2

Ответы на вопрос:

t11o
t11o
4,8(48 оценок)

Y:=2

X:=2

Объяснение:

андрей2096
андрей2096
4,7(31 оценок)
Var x,y,r: real; begin write('x, y: '); readln(x,y); write('r = '); readln(r); if x*x+y*y> r*r   then writeln('точка находится внутри круга')   else if x*x+y*y=r*r         then writeln('точка находится на окружности')         else writeln('точка находится вне круга'); end. пример: x, y: 3 4 r = 5 точка находится на окружности

Популярно: Информатика