Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 45 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

44
5.Выполните трассировку программы и определите результат.
program exam2_5;
var
s, i, k: integer;
begin
s:= 0;
k:= 1;
for i:=1 to 5 do begin
s:=s+i;
k:=k*i;
end;
writeln(s+k);
end.
6.Выполните трассировку программы и определите результат.
program exam2_6;
var
s, i, k: integer;
begin
s:= 0;
k:= 1;
for i:=1 to 5 do begin
s:=s+i;
k:=k∗i;
if s+k>25 then
break;
end;
writeln(s:5, k:5);
end. 
   5.Выполните трассировку программы и определите результат.

  program exam2_5;
  var
    s, i, k: integer;
  begin
    s:= 0;
    k:= 1;
    for i:=1 to 5 do begin
     s:=s+i;
     k:=k*i;
    end;
    writeln(s+k);
end.

   6.Выполните трассировку программы и определите результат.

   program exam2_6;
   var
    s, i, k: integer;
   begin
    s:= 0;
    k:= 1;
    for i:=1 to 5 do begin
     s:=s+i;
     k:=k∗i;
     if s+k>25 then
        break;
    end;
    writeln(s:5, k:5);
   end.




                               44

Страницы