1)
Program n1;
var a,b,i: integer;
begin
readln(a,b);
for i:=a to b do write(i*5,' ');
end.
2)
Program n2;
var a: real;
i: integer;
begin
readln(a);
for i:=2 to 24 do if i mod 2=0 then write(a*i/10,' ');
end.
Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
||Направо пойдешь - богатым будешь||
|
||Налево пойдешь - женатым будешь||
|
||Прямо пойдешь - коня потеряешь||
Вторая строка это пароль от сервера интернета. Введи нужный по роль что бы подключится