Program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Алгоритм не имеет решения, т.к. после блока ввода стрелка раздваивается на 2 что не возможно без условия. после блока условия должна быть стрелка в логический блок из которго должно выходить 2 стрелки "истина" (да) и "лож" (нет). и цикл должен быть из логического блока куда ни будь на верх алгоритма, чаще всего вновь на услоие.
Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
<span>Последовательность изображений-фильмы,мультфильмы и т.д-это видеоинформация.</span>
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПОСТ
h = 0.1;
a = 0;
b = 1;
ПЕР
x: ВЕЩ;
УКАЗ
x := a;
ПОВТОРЯТЬ
Вывод.ЧВещ("\%.8f^", x * x, 0, 0, 0);
x := x + h
ДО x > b
КОН Задание.