1. определите зна¬че¬ние пе¬ре¬мен¬ной b после вы¬пол¬не¬ния алгоритма: a : = 4 b : = 15 a : = b-a*3 b : = 24/a*4 в от¬ве¬те ука¬жи¬те одно целое число — зна¬че¬ние пе¬ре¬мен¬ной b.

// pascalabc.net 3.2, сборка 1387 от 20.02.2017 begin   var a1,b1,c1,a2,b2,c2: real;   write('длины сторон 1 треугольника: '); read(a1,b1,c1);   var p1: =a1+b1+c1;   write('длины сторон 2 треугольника: '); read(a2,b2,c2);   var p2: =a2+b2+c2;   if p1< p2 then writeln('периметр 1 треугольника (',p1,') меньше')   else       if p2< p1 then writeln('периметр 2 треугольника (',p2,') меньше')       else writeln('периметры равны ',p1) end.

Var a : array[1..10] of word; max : word; begin       randomize;     for i : byte : = 1 to 10 do   a[i] : = random(1, 60000);   max : = 0;   for i : byte : = 1 to 10 do   if a[i] > max then max : = a[i];   writeln(max*3); end. добавлю и объяснение. алгоритм заполняет целочисленный массив из десяти элементов случайными числами. возможны диапазон числе:   от 1 до 60000. затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. в строке writeln выводится значение этого числа умноженное на три.