fork download
copy 
  1. program HeronFormula;
  2. uses crt;
  3. var
  4. a, b: integer;
  5. begin
  6. writeln('Введите одно четное и одно нечетное число');
  7. readln(a, b);
  8. if (a mod 2 = 0) and (b mod 2 <> 0) then
  9. writeln(b,' - нечетное число')
  10. else
  11. if (a mod 2 <> 0) and (b mod 2 = 0) then
  12. writeln(a,' - нечетное число')
  13. else
  14. writeln('Некорректный ввод');
  15. end.
Success #stdin #stdout 0s 5304KB
comments (?)
stdin
copy 
3 5
4 10
8 13
stdout
copy 
Введите одно четное и одно нечетное число
Некорректный ввод
https://ideone.com/tRgWrL
language:
Pascal (fpc 3.0.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!