Показать сообщение отдельно
Старый 14.09.2010, 20:11   #514
Nikita29
Продвинутый
 
Аватар для Nikita29
 
Регистрация: 18.01.2010
Имя: Никита
Адрес: Розовый остров
Возраст: 31
Авто: хачу УжАЗеггг НУ ПАДАРИТЕ!!!!!
Сообщений: 198
Вес репутации: 58
Репутация: 62
Re: Компьютерный раздел

ПОМОГИТЕ, ПРОГРАММИСТЫ!
Вообщем надо написать программу, для определения большего из 4 чисел. Среда программирования - Pascal ABC. Для двух чисел я написал вот так:
Цитата:
uses crt;
var
a,b,max:integer;
begin
writeln('Введите числа:');
read(a,b);
if a>b then begin
max:=a;
write('Нибольшее число: ');
write(max);
end
else begin
max:=b;
write('Нибольшее число: ');
writeln(max);
end;
end.

Как я понял, можно ставить только один знак за одно условие. Помогите, не понимаю, как сюда цикл привязать .

А, числа заведомо не равные.
Nikita29 вне форума   Профиль Nikita29 Послать Nikita29 личное сообщение Найти сообщения Nikita29 Ответить с цитированием