Задать вопрос
10 июля, 06:44

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;

+3
Ответы (1)
  1. 10 июля, 10:42
    0
    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. Смотри второй скрин.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1) Найдите ошибки в программе и запишите правильный вариант Var a, b, i, x:real; Begin Read (x) ; a:=x; For i:=1 downto b do Begin i:=i+3; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы