C клавиатуры ввести три целых числа, отыскать:а) Количество отрицательных нечетных чисел
C клавиатуры ввести три целых числа, найти:а) Количество отрицательных нечетных чисел в) Наибольшее трехзначное четное положительное число или найти, что такого числа нет
Задать свой вопрос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]lt;0) and ((a[i] mod 2) lt;gt; 0)
then za:= za+1
end;
for i:=1 to 3 do
begin
if (a[i]gt;99) and (a[i]lt;1000) and ((a[i] mod 2) = 0) and (a[i]gt;zb)
then zb:=a[i];
end;
writeln('а) ',za);
if zblt;gt;0
then writeln('в) ',zb)
else writeln('в) Не найдено');
end.
Программка написана на языке PascalABC.NET
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.