Руфиниан
5 год назад
Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если оно не существует, выведите фразу "not found". Сделать в паскаль
ОТВЕТЫ
Бошняк
Aug 9, 2019
Var
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] gt;= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln(not found);
end.
a: array[1..4] of integer;
i, max: integer;
begin
for i := 1 to 4 do
readln(a[i]);
max := a[1];
for i := 1 to 4 do
if (a[i] mod 2 = 0) and (a[i] gt;= max) then
max := a[i];
if max mod 2 = 0 then
writeln(max)
else
writeln(not found);
end.
Var a:array[1..4] of integer;
i,max:integer;
b:boolean;
begin
b:=false;
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=1 to 4 do
if (not odd(a[i])) and (a[i]gt;=max) then begin
max:=a[i];
b:=true;
end;
if b then write(,max) else write(not found);
end.
i,max:integer;
b:boolean;
begin
b:=false;
for i:=1 to 4 do
read(a[i]);
max:=a[1];
for i:=1 to 4 do
if (not odd(a[i])) and (a[i]gt;=max) then begin
max:=a[i];
b:=true;
end;
if b then write(,max) else write(not found);
end.
105
Смежные вопросы: