Question

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;

Answer 1

1. Вот так программа начала работать:

program jhk;
Var a,x:real;
i,b:integer;
Begin
writeln(x);
Read(x);
a:=x;
writeln(b);
For i:=1 downto b do
Begin
a:= a/2;
x:=x+a;
End;
i:=i+3;
write(x);
End.

В исходном состоянии были ошибки - смотри первый скрин.

2. Смотри второй скрин.