Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание спасибо.
Написать поограмму в pascal abc. Дано 5 значное число выделить 2,3,4 цифру и выяснить является нечетным. зарание спасибо.
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
b:boolean;
begin
readln(a);
writeln(a div 10 mod 1000);
if a mod 2 <> 0 then b:=true;
writeln(b);
end.
Не нашли ответ?
Похожие вопросы