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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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