1)Включаешь комп
2)Включаешь интернет
3)Открываешь программу power point
4)Материал склеиваешь и делаешь
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.
Var a,s,i:integer;
begin
a:=1-4;
s:=0;
for i:=1 to 100 do
begin
a:=a+4;
s:=s+a;
end;
writeln('s = ',s);
end.
Результат:
s = 19900