→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Пожалуйста скажите почему в ответе даёт ноль.??? 
Автор Сообщение
Начинающий

Регистрация: 06.11.2014
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Пожалуйста скажите почему в ответе даёт ноль.???
Пожалуйста скажите почему в ответе даёт ноль.???



program chisla;
var a,b,c,max,min, kinc : real;
begin
write('перше число');
readln(a);
write('друге число');
readln(b);
write('трете число');
readln(c);
if(a<b)and(a<c) then a:=min;
if(a>b)and(a>c) then a:=max;
if(b<a)and(b<c) then b:=min;
if(b>a)and(b>c) then b:=max;
if(c<a)and(c<b) then c:=min;
if(c>a)and(c>b) then c:=max;
kinc:=(max-min);
write('kinc=',kinc);
readln;
end.


06.11.2014 20:59
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»