Program dfg;
var
b,x,y:integer;
a:array [1..10] of integer;
d:real;
begin
randomize;
for x:=1 to 10 do
begin
y:=random(10);
a[x]:=y;
writeln ('числа случайные = ',y);
end;
a[1]:=a[1] xor a[10];
a[10]:=a[1] xor a[10];
a[1]:=a[1] xor a[10];
for x:=1 to 10 do
begin
writeln ('числа случайные после смены = ',a[x]);
end;
<span>end.</span>
Ответ:
Указан после каждого столбика с решением.
// Вот тебе первая задача у меня QBasic не хочет с русскими буквами дружить поэтому слово алгоритмизация написано транслитом algoritmizacia
1. Намалювати круг.
2.Визначити радіус.
3.Визначити радіус в інший бік.
4. Поділити круг на чотири рівні частини.
5.Намалювати в кожній частині по одному кружечку.
6.Стерти лінії
7.Замалювати.
1) 53 * 43 * 408 = 929 832
2) 929 832 / 146 ≈ 6369 минут
Ответ: примерно 6369 минут (я округлил)