Определите, что будет напечатано в результате работы следующей программы

1) var s; k: integer;
begin
s:=60;
s:=s-12;
for k:=2 to 10 do
s:=s+k;
writeln(s);
end

2)var s; k: integer;
begin
s:=80;
for k:=0 to 11 do
s:=s-6;
writeln(s);
end

Question

Информатика: Определите, что будет напечатано в результате работы следующей программы 1) var s; k: integer; begin s:=60; s:=s-12; for k:=2 to 10 do s:=s+k; writeln(s); end 2)var s; k: integer; begin s:=80; for k:=0 to 11 do s:=s-6; writeln(s); end

Лораншу · Accepted Answer

Разветвляющийся алгоритм

Var a,b,c,d,e:integer;

Begin

Writeln('Введите значения переменных');

Readln(a,b,c,d,e);

If (a>b) and (a>c) and (a>d) and (a>e) tnen

Writeln('Наибольшее из 5 чисел ', a)

Else

If (b>a) and (b>c) and (b>d) and (b>e) tnen

Writeln('Наибольшее из 5 чисел ', b)

Else

If (c>a) and (c>b) and (c>d) and (c>e) tnen

Writeln('Наибольшее из 5 чисел ', c)

Else

If (d>a) and (d>b) and (d>c) and (d>e) tnen

Writeln('Наибольшее из 5 чисел ', d)

Else

Writeln('Наибольшее из 5 чисел ', e);

End.

Циклический алгоритм

Type

Vector=array [1..10] of integer;

Var m:integer;

a:vector;

i:byte;

Begin

Writeln('Введите значения переменных');

For i:=1 to 5 do

Readln (a[i]);

For i:=1 to 5 do

If a[i]>a[i+1] then

m:=a[i];

Writeln('Наибольшее число ', m);

End.

Определите, что будет напечатано в результате работы следующей программы 1) var s; k: integer; begin s:=60; s:=s-12; for k:=2 to 10 do s:=s+k; writeln(s); end 2)var s; k: integer; begin s:=80; for k:=0 to 11 do s:=s-6; writeln(s); end

MOGZ ответил

Определите, что будет напечатано в результате работы следующей программы

1) var s; k: integer;
begin
s:=60;
s:=s-12;
for k:=2 to 10 do
s:=s+k;
writeln(s);
end

2)var s; k: integer;
begin
s:=80;
for k:=0 to 11 do
s:=s-6;
writeln(s);
end