Исходники и листинги ::: Pascal ::: Четность
1
2
3
4
5
6
7
8
9
10
11
12
13
  program sasha;
  uses crt;
  var a,b:integer;
  begin
   ClrScr;
   writeln ('Vvedite luboe chislo: ');
   readln (a);
   b:= a mod 2;
  if b=0
   then writeln ('Eto chislo chetnoe')
   else writeln ('Eto chislo nechetnoe');
   readln
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Четность
Автор: Sanek_xXx
Город: Казань
 Дата: 29.01.2007  11:02
Комментариев: 1
Просмотров: 220
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Проверяет число на четность.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
delphIN* ::: комментарий от 05.02.2007 | 20:08
delphIN Перспективный (ур.8)
Очки: 1552
Город: Братск
Тв. работ: 10
Рег: 17.01.2007 (2628)
Очень просто, скучно, стыдно отправлять такие работы