C клавиатуры ввести три целых числа, найти:а) Количество отрицательных нечетных чисел в) Максимальное трехзначное четное положительное число или определить, что такого числа нет
Ответы
Ответ дал:
0
program raf105;
var a:array[1..3] of integer;
i,za,zb:integer;
begin
write('Введите три числа: ');
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
begin
if (a[i]<0) and ((a[i] mod 2) <> 0)
then za:= za+1
end;
for i:=1 to 3 do
begin
if (a[i]>99) and (a[i]<1000) and ((a[i] mod 2) = 0) and (a[i]>zb)
then zb:=a[i];
end;
writeln('а) ',za);
if zb<>0
then writeln('в) ',zb)
else writeln('в) Не найдено');
end.
Программа написана на языке PascalABC.NET
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад