Задача 7 урок 9

Primary tabs

Submitted by OKside on Fri, 10/08/2021 - 18:28

Forums:

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

program Project97;
var a,b,c,d: integer;
  begin
    writeln('Vvedite chisla ');
      readln(a,b,c,d);
      if (a>b) and (a>c) and (a>d) then
      writeln('Maksimalnoe chislo ',a);
      if (b>a) and (b>c) and (b>d)  then
      writeln('Maksimalnoe chislo ',b);
      if (c>a) and (c>b) and (c>d) then
      writeln('Maksimalnoe chislo ',c)
      else writeln('Maksimalnoe chislo ',d);
      readln();
  end.

Консоль: 

Vvedite chisla  
1
2
3
4
Maksimalnoe chislo 4
  • Log in to post comments
  • 1115 reads
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 14:11

неправильное форматирование

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

OKside

Wed, 10/13/2021 - 20:20 

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

vedro-compota

Wed, 10/13/2021 - 20:28

решение засчитано

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