Урок 9. Условный оператор IF. Задача №7.

Primary tabs

Firons's picture
Submitted by Firons on Mon, 04/13/2020 - 17:16

Forums:

Урок 9. Задача №7.

Пользователь вводит четыре числа, найдите из них максимальное.

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
  • 3132 reads
Firons's picture

Firons

Tue, 04/14/2020 - 16:04

В моем решении если максимум А или В то сообщение выводится повторно.

Firons's picture

Firons

Tue, 04/14/2020 - 08:11

Видео

Program LessonPascal;
var a, b, c, d,
  max2, max3 : 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
    max2 := a
 else
    max2 := b;
 if (max2 > c) then
    max3 := max2
 else
    max3 := c;
 if (max3 > d) then
    writeln ('Maximum = ', max3)
 else
    writeln ('Maximum = ', d);

 readln(); // Удержание консоль
end.// Завершение программы