Определите, что будет напечатано в результате работы следующей программы:
var s, k: integer;
Begin
s := 70;
for k := 1 to 8 do
s := s - 6;
write (s);
End.

Question

Информатика: Определите, что будет напечатано в результате работы следующей программы: var s, k: integer; Begin s := 70; for k := 1 to 8 do s := s - 6; write (s); End.

yyydomayyy · Accepted Answer

PROGRAM A22;
const
    max = 42;
var
    vt:array[1..max]of byte;
    i,n:byte;
    x:integer;

BEGIN
n := max;
writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
readln(n);
write('Введите число которое будет добавлено к каждому элементу.');
readln(x);

writeln('Начальный Массив' );
randomize;
for i:=1 to n do begin
    vt[i]:=random(1,3);
    write(vt[i], ' ');
end;
writeln(' ');

writeln('Массив c результатом' );
for i:=1 to n do begin
    write(vt[i]+x, ' ');
end;
writeln(' ');

END.

Массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число

Массив из n элементов задан случайными числами на интервале [0,3] прибавьте к каждому элементу число

Определите, что будет напечатано в результате работы следующей программы: var s, k: integer; Begin s := 70; for k := 1 to 8 do s := s - 6; write (s); End.

MOGZ ответил

Определите, что будет напечатано в результате работы следующей программы:
var s, k: integer;
Begin
s := 70;
for k := 1 to 8 do
s := s - 6;
write (s);
End.