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

[04 Август 2025, 09:07:05]

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

[04 Август 2025, 09:07:05]

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

[coolasm]

Паскаля особо непомню, и нет его у меня, но так, будет, по моему, лутше

program c4et;  
var  a: array[0..9] of integer; x,i:integer;  
flag:boolean;
begin  
writeln('vvedite chislo  '); {пишем}
read(x); {читаем число}

for i:= 1 to 4 do begin {загоняем в массив цифры числа}
inc(a[ (x mod 10)]);  
x:= x div 10;  
end;  

flag:=false;

for i:=0 to 9 do
begin
if (a=2) then flag:=true;
end;

if (flag) then writeln('est') else writeln('net')

end.