а) ответ во вложении (остальные аналогично решаются)
(у тебя ошибка в последней строке первой таблицы)
1.Объем,зеркально,клеточка.
2.Объем отражение.
<span>В блок-схеме условие ветвления изображается в ромбе, из которого выходят две стрелки:
«Да» - указывает на команды, которые будут выполняться, если условие соблюдено;
«Нет» - указывает </span>на команды, которые будут выполняться, если условие не соблюдено.
Var n,s,i: integer;
begin
write('Количество слоев: ');
readln(n);
for i := 1 to n do
s:=s+i*i;
writeln('Число шаров: ',s)
<span>end.</span>
// PascalABC.Net 3.0, сборка 1066
const
s1='АБВГабвг';
s2='12341234';
var
c:char;
i:integer;
begin
Write('Введите букву класса: '); Readln(c);
i:=Pos(c,s1);
if i>0 then begin
c:=s2[i];
case c of
'1':Writeln('гимназический');
'2':Writeln('математический');
'3':Writeln('обычный');
'4':Writeln('коррекционный')
end
end
else Writeln('Неверная буква')
end.
<em><u>Тестовое решение:</u></em>
Введите букву класса: Б
математический
<em><u>Примечание: работа программы также проверена в Borland Pascal 7.01</u></em>