uses
SysUtils;
var
a, b, c : Real;
count : Integer;
function InDiapazzone( var p: Real ): Boolean;
begin
if (p > -3) and (p < 5) then
InDiapazzone := true
else InDiapazzone := false;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
count := 0;
if InDiapazzone(a) then inc (count);
if InDiapazzone(b) then inc (count);
if InDiapazzone(c) then inc (count);
if (count = 0) then
writeLn ('Нет совпадений')
else writeLn ('Совпадений '+ IntToStr( count ));
ivtrans, вы опечатки от ошибок не отличаете. Тоже мне обличитель йопт.
Dervish, суть не в этом. Суть в том, что он бывший майор.
Судя по интонации статеек, парень уже бывший майор. Нарядился в форму и опозорил мундир.
Да и пишет с ошибками на собственном сайте:
Подниму тему - есть время на крупный проект, обращайтесь.
Монобукет Розы Стандарт (10шт) 150р.
В мое время было какое то табу на четное число цветков в одном букете.
Сейчас его отменили? :)
Как то вот так :)
Порадовало
Как далек ты, Андрюха от простого народа. :)
Правильно, вообще то - Porsche design. :)
Приехал из Ульяновска неделю как - купил всякой рыбы вяленой: и лещей, и чехони и сапы :).
Все по такой шаре нереальной - на рынке, на развес.
Вот это сильно, серьезный какой то термин :)
Пиво лучше всего в Праге пить, темный козел в трактире "У Чаши".
"У Флеку" - тоже очень хорошее :)