Вводятся 3 числа, вывести на экран нечетные числа pascal
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
agafonova.nata2015
var
a, b, c:integer;
begin
readln (a) ; readln (b) ; readln (c) ;
if a mod 2 0 then
Writeln ('Первое нечетное')
else if a mod 2 = 0 then
Writeln ('Первое четное') ;
if b mod 2 0 then
Writeln ('Второе нечетное')
else if b mod 2 = 0 then
Writeln ('Второе четное') ;
if c mod 2 0 then
Writeln ('Третие нечетное')
else if c mod 2 = 0 then
Writeln ('Третие четное') ;
end.
a, b, c:integer;
begin
readln (a) ; readln (b) ; readln (c) ;
if a mod 2 0 then
Writeln ('Первое нечетное')
else if a mod 2 = 0 then
Writeln ('Первое четное') ;
if b mod 2 0 then
Writeln ('Второе нечетное')
else if b mod 2 = 0 then
Writeln ('Второе четное') ;
if c mod 2 0 then
Writeln ('Третие нечетное')
else if c mod 2 = 0 then
Writeln ('Третие четное') ;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
