Ну принцип какой... У тебя дан for от 1 до 9, т.е. 8 раз надо провести операцию s=s×x
1s=2, т.к. 2*1=2
2s=4
3s=8
4s=16
5s=32
6s=64
7s=128
8s=256
И ответом выйти должно 256
Идем по порядку: очищаем память, 10 делим на 2 получаем 5, заносим 5 в память, (3+5)*2=16, 16 минус возвращаемое из памяти число 5 получаем 11.
Ответ: результат равен 11.
Знаки: ясно пасмурно дождь облачно снегсильный ветер
Ответ:
Сливов нет, выйдут через 1-2 часа
Program n_6; var i,x,y,z:integer; m:array[1..n] of integer = (1,2,3,4,5,6,7,8,9,10); procedure nod(a,b:integer; var c:integer);
Leanne0203
Const max=10;
var ar:array[1..max]of integer;
i:byte;
procedure randomArray();
var i:byte;
begin
randomize();
for i:=1 to max do
ar[i]:=random(10,100);
end;
begin
randomArray();
for i:=1 to max do
write(ar[i],' ');
end.