Смотрим на кол-во строк в которых ширина меньше 15 . таковых 4. смотрим на графу вид и из 4 выбираем только ч/б. таковых 2.
не 3, тк в условии написано МЕНЬШЕ 15, а не МЕНЬШЕ ИЛИ РАВНО 15.
ОТВЕТ-2
var a,b,c,y,x,z:real;
begin
readln(a,b,c);
writeln('a = ',a);
writeln('b = ',b);
writeln('c = ',c);
writeln('y = ',(a-2)/(b*b-c):0:3);
writeln('x = ',(b*b+4*a*c)/(2*a):0:3);
writeln('z = ',(a/b)+(c/a)-((a*b+c*c)/(b*c)):0:3);
end.
Например бугалтер для расмотрении разных документов
1. Оператор write будет выполнен 4 раза.
2. Значение S будет равно 12
Трассировочные таблицы - во вложении
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a, b: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
ЕСЛИ ЧЕТ(сч) ТО
b[сч] := a[сч] * 2
ИНАЧЕ
b[сч] := a[сч] * 3
КОН
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
КОН;
Вывод.Цепь("^");
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
КОН
КОН Задание.