Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 20;
a := 5;
for i:=1 to 5 do
begin
a := a + 1;
write( a );
end;
end.

Question

Информатика: Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 20; a := 5; for i:=1 to 5 do begin a := a + 1; write( a ); end; end.

Dhbdej · Accepted Answer

Первая программа:

Var
   N,A:integer;
   S:real;
Begin
S:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A;
    End;
WriteLn('S = ',S);
End.

Пример работы программы:

N = 5
-5
10
15
-25
17
S = -30

Вторая программа:

Var
   A,N,k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    A:=Abs(A);
    if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1
    End;
WriteLn('k = ',k);
End.

Пример работы программы:

N = 3
756
12
39
k = 2

Что будет выведено на экране монитора после выполнения следующего фрагмента программы: var i,a,b: integer; begin b := 20; a := 5; for i:=1 to 5 do begin a := a + 1; write( a ); end; end.

MOGZ ответил

Что будет выведено на экране монитора после выполнения следующего фрагмента программы:

var i,a,b: integer;
begin
b := 20;
a := 5;
for i:=1 to 5 do
begin
a := a + 1;
write( a );
end;
end.