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;

Question

Информатика

Маркеллина

10 августа, 22:47

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;

+5

Ответы (1)

Знаешь ответ?

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