Исходники и листинги ::: Pascal ::: ПРИМЕР if
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  uses crt;
  var a,b,c,d,e,f,g:real;
  begin
    clrscr;
    writeln('‚ўҐ¤ЁвҐ Ђ');
    readln(a);
    writeln('‚ўҐ¤ЁвҐ ‚');
    readln(b);
    c:=a/b;
    writeln('C = ',c:0:5);
 
  { if a>0 then writeln('a Ў®«м襠0') else writeln('  ¬Ґ­м襠0');}
    if c>0 then writeln('C Ў®«м襠0');
    if c
<<< Предыдущая работа

Вернуться в галерею исходников 		ПРИМЕР if
Автор: Drako*
Город: Иркутск
 Дата: 25.10.2006  16:29
Комментариев: 1
Просмотров: 249
Оценка: 1 (0|0|0|1|0) [1]
Вернуться на главную
Авторский комментарий к работе: пример для начинающих
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Нет комментариев