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

Primary tabs

Submitted by Aleksandr on Tue, 07/20/2021 - 20:30

Forums:

link

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

program lesson9_7;
var
  a, b, c, d, max1, max2: integer;
begin
  writeln('enter 4 number');
  readln(a, b, c, d);
  if(a > b) then
      max1 := a
  else
      max1 := b;
  if(c > d) then
      max2 := c
  else
      max2 := d;
  if(max1 > max2) then
      writeln(max1, ' - max number')
  else
      writeln(max2, ' - max number');
  readln();
end.
  • Log in to post comments
  • 1541 reads
vedro-compota's picture

vedro-compota

Thu, 07/22/2021 - 20:07

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

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