Надрукуйте в рядок всі цілі числа з інтервалу [200,500], - вопрос №20050016527733 от kristina231220 12.11.2020 05:46

Question

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

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