1) Начало
2) Ввод a, b, c
3) Если (a = -b) или (a = -c) или (b = -c), то ответ ДА. Иначе ответ НЕТ.
4) Вывод ответа
5) Конец
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
var
i:integer;
begin
i:=10;
while i<21 do
begin
writeln(i*i*i, ', ');
i:=i+1;
end;
end.
1.
Пока сверху свободно
Вверх
Пока справа свободно
закрасить вправо
Пока снизу свободно
закрасить вниз
Пока слева свободно
закрасить влево
Пока сверху свободно
закрасить верх
пока справа свободно
закрасить вправо
uses graphabc;
begin
SetPenWidth(2);
rectangle (100,100,500,300);
line(300,100,300,300);
moveto(100,100);
lineto(200,50);
lineto(400,50);
lineto(500,100);
line(200,50,300,100);
SetBrushColor(clGray);
rectangle(150,150,250,250);
end.