Надрукуйте в рядок всі цілі числа з інтервалу [200,500], - вопрос №20050016528076 от lsodh 26.03.2022 07:34

Question

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

lsodh · 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], в яких рівно дві однакові цифри ПАСКАЛЬ !!