Помогите пожалуйста. Pascal

Alma · 17.01.2015, 14:50

Помогите пожалуйста со 2 и 3 номерами

Vladimir_S · 17.01.2015, 15:58

Цитата:

Сообщение от Alma

Помогите пожалуйста со 2 и 3 номерами

Со второй - и не подумаю "помогать": простейшее ветвление через оператор "if". Сами справитесь. Третью можно решать по-разному. Вот, например, самый лобовой способ:

Код:

Var
 a,b,c,x,y:Real;

Begin
 Write('a = ');
 Readln(a);
 Write('b = ');
 Readln(b);
 Write('c = ');
 Readln(c);
 Write('x = ');
 Readln(x);
 Write('y = ');
 Readln(y);
 if ((a<x) and (b<y)) or
    ((a<y) and (b<x)) or
    ((b<x) and (c<y)) or
    ((b<y) and (c<x)) or
    ((a<x) and (c<y)) or
    ((a<y) and (c<x)) then writeln('Yes!') else writeln('No!');
 Readln
End.

17.01.2015, 14:50	#1 (permalink)
Alma Новичок Регистрация: 17.01.2015 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста. Pascal Помогите пожалуйста со 2 и 3 номерами Миниатюры

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070