следующая тема »

[05 Июнь 2024, 10:48:29]

Новости, реклама:

[05 Июнь 2024, 10:48:29]

Новости, реклама:

[medic]

с тибя + а можно и не один

program c4et;
var  a: array[1..4] of integer; x,y,i,j:integer;
begin
writeln('vvedite chislo(100-9999)  ');
read(x);
for i:= 1 to 4 do begin
a:= x mod 10;
x:= x div 10;
end;
y:=1;
for i:= 1 to 4 do begin
for j:= 1 to 4 do begin
if i<>j then begin
if a=a[j] then y:=y+1;
end;
end;
if y=3 then begin
writeln('verno ');
exit;
end;
y:=1;
end;
writeln('neverno');
end.