СРОЧНО НУЖНА ПОМОЩЬ В ПАСКАЛЬ - есть ответ

Ответы:

написал

В цикле проверить для каждой пары чисел, больше ли одно число другого, если да, то его записать, если нет, то ничего не делать

'max=',max

Код Pascal
Uses Crt;
Var
a,b,c,d,max:Integer;
Begin
ClrScr;
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
Write('d=');
Readln(d);
If (a>b) and (a>c) and (a>d) Then max:=a;
If (b>a) and (b>c) and (b>d) Then max:=b;
If (c>a) and (c>b) and (c>d) Then max:=c;
If (d>a) and (d>b) and (d>c) Then max:=d;

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.