Чему будет равно значение переменной с после выполнения фрагмента программы? алг

нач

a:=74

b:=11

a:=a-b+4

b:=(a+13)/2

если a>b

то c:=a*3

иначе c:=a+b/2

все

кон

даю 10б

var n,m,i,k:integer; c:char;

begin

// 1

write('n, m: ');

readln(n,m);

k:=0;

for i:=n to m do

begin

write(i,' - ',chr(i),'   ');

k:=k+1;

if k mod 3=0 then writeln;

end;

// 2

write('n: ');

readln(n);

writeln(n,' ',chr(n));

// 3

write('c: ');

readln(c);

writeln(c,' ',ord(c));

end.

Пример:

n, m: 40 60

40 - (   41 - )   42 - *    

43 - +   44 - ,   45 - -    

46 - .   47 - /   48 - 0    

49 - 1   50 - 2   51 - 3    

52 - 4   53 - 5   54 - 6    

55 - 7   56 - 8   57 - 9    

58 - :   59 - ;   60 - <    

n: 100

100 d

c: {

{ 123

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";

ПЕР

 массив_чисел: РЯД 100 ИЗ ЦЕЛ;

 сч, мин, ном: ЦЕЛ;

УКАЗ

 ОТ сч := 0 ДО РАЗМЕР(массив_чисел) - 1 ВЫП

   массив_чисел[сч] := - УЗК(ВШИРЦЕЛ(Матем.случ() * 1000))

 КОН;

 мин := массив_чисел[0]; ном := 0;

 ОТ сч := 1 ДО РАЗМЕР(массив_чисел) - 1 ВЫП

   ЕСЛИ массив_чисел[сч] < мин ТО

     мин := массив_чисел[сч]; ном := сч

   КОН

 КОН

 (* мин - минимальное значение, ном - его номер *)

КОН Задание.

Обрати внимание на то, что считается фактическое минимальное значение, а не минимальный модуль.