Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПАСКАЛЬ !!

Question

Информатика: Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПАСКАЛЬ !! ​

Milasche4ka17 · Answer

var a, b, c, i: integer;beginFor i:= 200 to 500 do begina:= i div 100;b:= i div 10 mod 10;c:= i mod 10;if ((a=b) or (b=c) or (a=c)) and ((a b) or (b c) or (a c)) then Write (i, ); end;end....

Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПАСКАЛЬ !! ​

Популярные вопросы

Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПАСКАЛЬ !!