Данил дорохов для тебя пишу
var a : array[1..3] of integer;
i, indmineven, k : integer;
begin
repeat
writeln('введите три цифры, не менее одной чётной и хотя одну - не равную нулю');
readln(a[1],a[2],a[3]);
until ((a[1]< > 0) or (a[2]< > 0) or (a[3]< > 0))
and not (odd(a[1]) and odd(a[2]) and odd(
and (a[1] in [0..9]) and (a[2] in [0..9]) and (a[3] in [0..9]);
indmineven : = -1;
for i: =1 to 3 do
if not odd(a[i]) then begin
if indmineven< 0 then indmineven : = i
else
if a[i] end;
if indmineven < > 3 then begin
k : = a[indmineven];
a[indmineven] : = a[3];
a[3] : = k
end;
if a[1] then writeln(a[2],a[1],a[3])
else writeln(a[1],a[2],a[3]);
end.
292
301
Ответы на вопрос:
Популярно: Информатика
-
revati120.08.2020 23:41
-
alexkiop7606.01.2022 22:58
-
vazovskiy201327.01.2021 22:07
-
NOznaniaNO14.11.2020 18:40
-
Emmz03.05.2023 15:44
-
veno127.05.2022 07:14
-
amina55565829.09.2022 08:27
-
Fenix0x02.06.2020 13:38
-
соыварщ09.01.2023 10:36
-
Пеннивайз200002.03.2021 21:37