1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
 begin
 if (a[i] < 0) then
 a[i] := -1
 else a[i] := 1;
 write(a[i], ' ');
 end;

Код полностью

var
 a: array[1..10] of integer;
 i, k: integer;

begin
 for i := 1 to 10 do
 begin
 a[i] := sqr(i) - i;
 write(a[i], ' ');
 end;
 writeln;

 K := 0;
 for i := 1 to 10 do
 if (a[i] > 10) and (a[i] < 70) then
 k := k + 1;
 Write(k);
 writeln;

 for i := 1 to 10 do
 begin
 if (a[i] < 0) then
 a[i] := -1
 else a[i] := 1;
 write(a[i], ' ');
 end;
end.

0 0

1 год назад

Назовем число новогодним, если его запись не содержит цифры 0, а сумма всех цифр этого числа равна 8. Найти сумму всех новогодни

Moneko [7]

Задание уже было решено тут: znanija.com/task/21697361

0 0

4 года назад

Помогите закрасить треугольник,используя floodfillКод: program AnimROB; uses crt, graph; var grDriver, grMode: integer; var x, y

сергей9781

{ Пример программы для процедуры FloodFill }
Uses Graph,Crt; 
Var Gd, Gm : Integer; 
Begin 
Gd:=Detect; 
InitGraph(Gd, Gm, ''); 
If GraphResult <> grOk Then Halt(1); 
SetColor(GetMaxColor); 
Circle(50, 50, 20); 
FloodFill(50, 50, GetMaxColor); 
Readkey; 
CloseGraph; 
End. 

Procedure FloodFill(X, Y : Integer; Border : Word); 
Закрашивает замкнутую область, используя текущие стиль и цвет закраски. 

Procedure SetFillStyle(Pattern : Word; Color : Word); 
Устанавливает цвет и стиль закраски. 

Procedure SetColor(Color : Word) 
устанавливает текущий цвет,

0 0

4 года назад