Урок 9. Условный оператор IF. Задача №7.
Primary tabs
Пользователь вводит четыре числа, найдите из них максимальное.
Program LessonPascal; var a, b, c, d, max:integer; begin writeln('Enter integer A: '); readln(a); //Ввод числа writeln('Enter integer B: '); readln(b); writeln('Enter integer C: '); readln(c); writeln('Enter integer D: '); readln(d); if (a > b) then max := a else max := b; if (max > c) then begin if (max > d) then writeln ('Maximum number this: ', max) else writeln ('Maximum number this: ', d); end else max := c; if (max > d) then writeln ('Maximum number this: ', max) else writeln ('Maximum number this: ', d); readln(); // Удержание консоль end.// Завершение программы
- Log in to post comments
- 2335 reads
Firons
Tue, 04/14/2020 - 16:04
Permalink
Решение!
В моем решении если максимум А или В то сообщение выводится повторно.
Firons
Tue, 04/14/2020 - 08:11
Permalink
Решение после просмотра видео
Видео