Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
<span>1. Если это Паскаль, то каждый оператор должен оканчиваться точкой с запятой. Тут ни один так не оканчивается.
2. Прочие ошибки.
a. В=А - должен быть знак присваивания, т.е. B:=A;
b. S+2=4.25 - должен быть знак присваивания := вместо =
Кроме этого, в левой части оператора присваивания должно быть имя, а не выражение.
c. R=A : B-1.78 - </span><span><span>должен быть знак присваивания := вместо =
Кроме этого, знак ":" не может встречаться в арифметическом выражении.
</span>d. If a then b:=0 - верен, если a имеет тип boolean
e. A:=D:=C - кратное присваивание недопустимо
f. If a=0 then b:=0 - верен, если а имеет числовой тип.</span>
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Побеждает первый игрок. Например, первым ходом он увеличивает количество камней во второй куче в три раза
(1, 2) -> (1, 6)
Второй игрок может своим ходом получить пары куч (3, 6), (5, 6), (1, 10), (1, 18)
В любом из этих случаев первый игрок может выиграть следующим ходом
(3, 6) -> (3, 18), 3 + 18 >= 20
(5, 6) -> (5, 18), 5 + 18 >= 20
(1, 10) -> (1, 30), 1 + 30 >= 20
(1, 18) -> (1, 54), 1 + 54 >= 20