Исходники и листинги ::: Pascal ::: exemple char

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  uses crt;
  var a,b,c:integer; d:char;
  begin
    clrscr;
    writeln('a?');
    readln(a);
    writeln('b?');
    readln(b);
    writeln('Ќ ¦¬ЁвҐ Є­®ЇЄг г¬­®¦Ґ­Ёп,   Ї®в®¬ Enter');
    readln(d);
    {c:=a*b;}
    if d='*' then writeln('Џа®Ё§ўҐ¤Ґ­ЁҐ а ў­® ',{c}a*b) else writeln('’л ­ ¦ « ­Ґвг Є­®ЇЄг, Ё¤Ё ­  ег©');
    readln;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников
exemple char
Автор: Drako*
Город: Иркутск
Дата: 25.10.2006  16:32
Комментариев: 1
Просмотров: 225
Оценка: 1 (0|0|0|0|1) [2]

Вернуться на главную
Авторский комментарий к работе: exemple char
Вы не можете оценивать

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