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;
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. Смотри второй скрин.