Надрукуйте в рядок всі цілі числа з інтервалу - вопрос №20050016527908 от palnikov2000 27.09.2020 22:22

Question

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

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