Информатика

Леонард

3 марта, 17:32

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;