Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПОМОГИТЕ, ПАСКАЛЬ
!!
Ответы
Ответ дал:
1
var a, b, c, i: integer;
begin
For i:= 200 to 500 do begin
a:= 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.
Sanya2263:
Если хочешь, чтоб числа 222, 333, 444 тоже печатались, убери "and ((a<>b)or(b<>c)or(a<>c))".
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад