Регистрация
anelochka
16.06.2022 23:54
Информатика
Есть ответ 👍

Задача №1 Выполнить трассировку (прогон) программы и определить, что будет выведено на экран после выполнения фрагмента программы. (4 балла)

……

Begin

А:=1;

For С:=10 downto 5 do

Begin

A:=A+C;

End;

Writeln (‘Значение A=’, A);

End.

Задача №2 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной b после выполнения фрагмента программы. (4 балла)

……

Begin

b:=0;

For k:=2 to 3 do

Begin

For i:=1 to 2 do

b:=b+2*i*k;

End;

End;

b:=sqr (b);

Writeln (‘b=’, b);

End.

Задача №3 Выполнить трассировку (прогон) программы и определить, чему будет равно значение переменной X и S после выполнения фрагмента программы. (7 баллов)

……

Begin

S:=0; X:=10; A:=0; B:=0;

For i:=1 to 3 do

Begin

S:=S+2*i;

if X>=6 then X:=X / 2

else X:=X*6;

End;

if S
S:=Dec (S);

X:=Inc(X);

End;

Writeln (‘X=’, X);

Writeln (‘S=’, S);

End.

296
477
Посмотреть ответы 1

Ответы на вопрос:

elinatyul
elinatyul
4,5(46 оценок)
// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',5); a.println;   writeln('п=',a.where(x-> x< > 0).aggregate(biginteger(,j)-> i*j*j));   writeln('нулей: ',a.where(x-> x=0).count) end. пример: n= 20 -1 -1 -4 4 0 1 -1 -3 -3 -3 4 -5 0 0 -1 3 -3 -2 -4 0 п=386983526400 нулей: 4

Популярно: Информатика