1)Найдите ошибки в программе и запишите правильный вариант
Var a,b,i,x:real;
Begin
Read(x);
a:=x;
For i:=1 downto b do
Begin
i:=i+3;
a:= a/2;
x:=x+a;
End;
write(x);
End.
2) рассмотрите фрагмент программы и ответьте что будет выведено на экран
begin
n:=5; k:=2;
For a:=1 to n do
begin
x:=x*3;
Writeln(x);
End;
Write(n);
End;
Begin
n:=4; a:=n;
For x:=1 to n do
a:=a-3;
Writeln(a);
End;
1)Найдите ошибки в программе и запишите правильный вариант
Var a,b,i,x:real;
Begin
Read(x);
a:=x;
For i:=1 downto b do
Begin
i:=i+3;
a:= a/2;
x:=x+a;
End;
write(x);
End.
2) рассмотрите фрагмент программы и ответьте что будет выведено на экран
begin
n:=5; k:=2;
For a:=1 to n do
begin
x:=x*3;
Writeln(x);
End;
Write(n);
End;
Begin
n:=4; a:=n;
For x:=1 to n do
a:=a-3;
Writeln(a);
End;
Var a,b,i,x:real;
Begin
Read(x);
a:=x;
For i:=1 downto b do
Begin
i:=i+3;
a:= a/2;
x:=x+a;
End;
write(x);
End.
2) рассмотрите фрагмент программы и ответьте что будет выведено на экран
begin
n:=5; k:=2;
For a:=1 to n do
begin
x:=x*3;
Writeln(x);
End;
Write(n);
End;
Begin
n:=4; a:=n;
For x:=1 to n do
a:=a-3;
Writeln(a);
End;
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
1) Исправленная версия программы:
Var a,b,i,x:real;
Begin
Read(x);
b:=3;
a:=x;
For i:=1 to b do
Begin
a:= a/2;
x:=x+a;
End;
write(x);
End.
2) Ответ:
9
27
81
243
729
5
-2