Program chik; var a:array[1..1000]of integer; h,i,n,x:integer; begin read(n); h:=0; for i:=1 to n do begin read(a[i]); end; read(x); for i:=1 to n do begin if(a[i]=x*x)then h:=h+1; end; write(h); end. 2) program chik2; var a,h:integer; begin a:=5; h:=0; while a<>0 do begin read(a); if(a<0)then h:=h+1; end; write(h); end. 3)program chik3; var a,h,s,p:real; begin a:=5; h:=0; while a<>0 do begin read(a); s:=s+a; h:=h+1; end; p:=s/h; write(p); end. 4)program chik4; var n,j,i:longint; begin read(n); for i:=1 to n do begin for j:=1 to i do begin write(j,' '); end; writeln; end; end. УДАЧИ!
program raf105;
var
a,b: array of integer;
i,x: integer;
procedure Divide7(x:integer; arr:array of integer);
begin
arr[0]:= x div 1000000;
arr[1]:= (x div 100000) mod 10;
arr[2]:= (x div 10000) mod 10;
arr[3]:= (x div 1000) mod 10;
arr[4]:= (x div 100) mod 10;
arr[5]:= (x div 10) mod 10;
arr[6]:= x mod 10;
end;
begin
SetLength(a,7);
SetLength(b,7);
writeln('Добро в игру "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
Divide7(x,a);
x:= random(1000000,9999999);
Divide7(x,b);
write('Введённые числа: ');
for i:=0 to 6 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=0 to 6 do
write(b[i],' ');
end.
2 Вариант (без процедуры)program raf105;
var
a,b: array[1..7] of integer;
i,x: integer;
begin
writeln('Добро в игру "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
a[1]:= x div 1000000;
a[2]:= (x div 100000) mod 10;
a[3]:= (x div 10000) mod 10;
a[4]:= (x div 1000) mod 10;
a[5]:= (x div 100) mod 10;
a[6]:= (x div 10) mod 10;
a[7]:= x mod 10;
x:= random(1000000,9999999);
b[1]:= x div 1000000;
b[2]:= (x div 100000) mod 10;
b[3]:= (x div 10000) mod 10;
b[4]:= (x div 1000) mod 10;
b[5]:= (x div 100) mod 10;
b[6]:= (x div 10) mod 10;
write('Введённые числа: ');
for i:=1 to 7 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=1 to 7 do
write(b[i],' ');
end.
PascalABC 3.4.2