Program test;
var
a:array[1..100] of integer;
i,n:integer;
begin
randomize;
for i:=1 to 99 do begin
n:=random(1,30);
if i mod 3 = 0 then begin
a[i]:=n;
a[i-1]:=n;
a[i-2]:=n;
end;
end;
for i:=1 to 99 do writeln(a[i]);
end.
Привет, как настроение? Меня зовут Мария, мне 18 лет. Хочу пообщаться с парнем.
Если тебе это интересно, найди меня тут - onetimesex.com
Мой никнейм - MoonaMod
1) 360/60 = 6
6 угольник должен получиться, но программа повториться всего 5 раз, поэтому получится ломаная
2) 360/120 = 3
Треугольник получится (так как 3 угла)
Ответ: 1 - 4) 2 - 4)
var
x, sum:integer;
Begin
Write('Введите число '); Readln(x);
while (x > 0) do begin
sum:= sum + x mod 10;
x:=x div 10
end;
if (sum mod 2 = 0)then
Writeln('YES')
else
Writeln('NO');
end.