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

[29 Июль 2025, 19:51:25]

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

[29 Июль 2025, 19:51:25]

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

[medic]

ага и иметь лишний гемор с переводом val, ктото писал про лишние begin - end   . этот вариант решение которое ему и нада....... ладна сделаим так

program c4et;
var  a: array[1..4] of integer; x,y,i,j:integer;
begin
writeln('vvedite chislo  '); {пишем}
read(x); {читаем число}
if x<110 then begin {проверяем чтобы число было 3х знычным}
writeln('neverno'); {3 цифры только в 3х значном числе}
exit; { усли меньше то выходим и пишем что неверно}
end;
for i:= 1 to 4 do begin {загоняем в массив цифры числа}
a:= x mod 10;
x:= x div 10;
end;
y:=1; {обнуляем счетчег, 3 потомучто 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 {проверка счетчика елси 3 то пишем верно и выходим}
writeln('verno ');
exit;
end;
y:=1; {обнуляем счетчег}
end;
writeln('neverno'); {если до этого не вышли значит условие невыполнено - пишем неверно}
end.

типерь точно как нада... кстати что ты будешь подставлять в строку если я введу теже 9 + алгоритм сравнения будет все равно будет похожий. Лаба у человека стопудова на mod и div

PS: гладны через }|{опу не удаляют
ЗЗЫ добавил пояснения