Определите, что будет напечатано в результате работы следующей программы 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

1.

60-12 = 48

потом ряд чисел:

48/50/53/57/62/68/75/83/92

102 <-

2.80

потом ряд чисел:

74/68/62/56/50/44/38/32/26/20/14

14 <-

Объяснение:

1. 48+2=

2./50+3=

3./53+4=

4./57+5=

5./62+6=

6./68+7=

7./75+8=

8./83+9=

9./92+10=

10./102

1.74-6 =

2./68-6 =

3./62-6 =

4./56-6 =

5./50-6 =

6./44-6 =

7./38-6 =

8./32-6 =

9/26-6 =

10./20-6 =

11./14

var 

  a, b, c: real;

 

begin

  writeln('Введите 3 любых числа');

  readln(a, b, c);

  if (a < b) and (a < c) then writeln(a, ' - наименьшее число');

  if (b < a) and (b < c) then writeln(b, ' - наименьшее число');

  if (c < a) and (c < b) then writeln(c, ' - наименьшее число');

  if (a > b) and (a > c) then writeln(a, ' - наибольшее число');

  if (b > a) and (b > c) then writeln(b, ' - наибольшее число');

  if (c > a) and (c > b) then writeln(c, ' - наибольшее число');

  readln; //Убрать если среда разработки не Turbo Pascal

end.

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

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.