Карп
кара
кора
коза
...
паук
парк
пара
фара
фура
мура
муха
...
лужа
ложа
кожа
кора
гора
горе
море
Var sum:real;
i:integer;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+(i/2);
writeln(sum);
<span>end.</span>
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do begin
a[i]:=random(100);write(a[i],' ');
if (a[i] mod 3=0) and (a[i]>50) then s:=s+1;
end;
writeln('S=',S);
end.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
begin
Range(1,20).Aggregate(biginteger(1),(p,x) -> p*x).Println;
end.
<u>Ответ = 2432902008176640000</u>
1)джойстик
2)?
3)процессор
4)принтер
5)системный блок
6)системный блок
7)видеокарта
8)enter
9)цветной принтер