Привет нужно создать аккаунт на этом сайте http://flirt18.site и подтвердить почту. Плачу 500р.
program qq;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i)<n do
i:=i+1;
writeln (sqr(i));
end.
2) var
i, j, k: word;
for i := 2 to 300 do
k := 0;
for j := 2 to i do
if (i mod j = 0)and (k < 6) then inc(k);
if k = 5 then write(' ', i);
end
3
1uses crt;
2var i,j,k: integer;
3 s: string;
4begin
5 write('Название клуба: ');
6readln(s);
7for i:=1 to length(s) do
8 writeln(s[i]);
9end.
Привет нужно создать аккаунт на этом сайте http://flirt18.site и подтвердить почту. Плачу 500р.
program qq;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i)<n do
i:=i+1;
writeln (sqr(i));
end.
2) var
i, j, k: word;
begin
for i := 2 to 300 do
begin
k := 0;
for j := 2 to i do
if (i mod j = 0)and (k < 6) then inc(k);
if k = 5 then write(' ', i);
end
end.
3
1uses crt;
2var i,j,k: integer;
3 s: string;
4begin
5 write('Название клуба: ');
6readln(s);
7for i:=1 to length(s) do
8 writeln(s[i]);
9end.