Исходники и листинги ::: Pascal ::: сумма
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  uses crt;
  var a,b,c,d,e,f,g,i,h,j,k,l,n:real;
  begin
   clrscr;
   readln(a,b,c,d,e);
   f:=a+b+c+d+e;
   writeln('1- п б㬬  а ў­  ',f:0:0);
   readln(g,i,h,j,k);
   l:=g+i+h+j+k;
   writeln('2- п б㬬  а ў­  ',l:0:0);
   n:=f-l;
   writeln('ђ §­®бвм б㬬 а ў­  ',n:0:0);
   readln;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		сумма
Автор: Drako*
Город: Иркутск
 Дата: 25.10.2006  18:01
Комментариев: 3
Просмотров: 294
Оценка: 1 (0|0|0|0|1) [2]
Вернуться на главную
Авторский комментарий к работе: ето небольшой пример
Вы не можете оценивать

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