Задача 9 Урок 9

Primary tabs

Submitted by NikSo on Fri, 05/27/2022 - 11:40

Forums:

Задача 9 Урок 9:

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

var a, b,c ,d, max: integer;
begin
  writeln('Vvedite a,b,c,d ');
  readln(a,b,c,d);
  if (a > b) then
    max := a
  else
    max :=b;
  if (c > max) then
    max := c;
  if (d>max) then
     max:=d;
 writeln(max);
 readln();
end.
  • Log in to post comments
  • 908 reads
vedro-compota's picture

vedro-compota

Sun, 06/05/2022 - 12:17

  • 1) уточнить форматирование
  • 2) решить через вложенные блоки

_____________
матфак вгу и остальная классика =)

NikSo

Tue, 06/21/2022 - 19:58 

var a, b, c, d: integer;
begin
  writeln('Vvedite a,b,c,d:');
  readln(a, b, c, d);
  if (a > b) then
  begin
    if (a > c) then
    begin
      if (a > d) then
        writeln(a)
      else
        writeln(d);
    end
    else
      if (c > d) then
        writeln(c)
      else
        writeln(d);
  end
  else
    if (b > c) then
    begin
      if (b > d) then
        writeln(b)
      else
        writeln(d);
    end
    else
      if (c > d) then
        writeln(c)
      else
        writeln(d);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 21:16

засчитано

_____________
матфак вгу и остальная классика =)