fork download
copy 
  1. program HeronFormula;
  2. uses crt;
  3.  
  4. var
  5. a, b: integer;
  6. begin
  7. writeln('Введите одно четное и одно нечетное число');
  8. readln(a, b);
  9. if a mod 2 <> 0 then
  10. writeln(a, ' - нечетное число')
  11. else
  12. writeln(b, ' - нечетное число');
  13. end.
Success #stdin #stdout 0.01s 5268KB
comments (?)
stdin
copy 
7 
8
stdout
copy 
Введите одно четное и одно нечетное число
7 - нечетное число
https://ideone.com/T3ekcg
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!