ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Program qwer;

Var
	a:char;
	s:string;
	infile:text;
Begin

	assign(infile,'yourfile.txt');
	reset(infile);
	s:='';
	repeat
		read(infile,a);
		case a of
			'0'..'9':	s:=s+a+' ';
		end;
	until eof(infile);
	
	close(infile);
	append(infile);
	writeln(infile,s);
	close(infile);
End.

        memcpy( pkt, srcmac, 7);
	memcpy( (void *)(pkt + 7), (void *)destmac, 7);
	memcpy( (void *)(pkt + 14), &ip_hd, 20 );
	memcpy( (void *)(pkt + 14 + sizeof(ip_hd)), &tcp_hd, 20);

writeln(infile,s);

writeln(s);

var
	beg, end, k : double ;
	i : integer ;
begin
	readln(beg, end);

	for i=beg to (beg+end) do
	begin
		k = sqrt(i);
		if i / k = k then
			writeln(i); 
	end;
end;

Program qwer;

Var

	n,k,i:integer;

Function kvadrat(i:integer) : boolean;
	begin
		if frac(sqrt(i))=0 then 
			kvadrat:=true else
			kvadrat:=false;
	end;


Begin
	write('Введите количество чисел ');
	readln(n);
	write('Введите начальное число ');
	readln(k);
	for i:=k to k+n do
	if kvadrat(i) then 
	begin	
		write(i);
		write(' ');
	end;
	readln;
End.