Урок 9 задача 6

Primary tabs

Submitted by kuznmax on Sun, 02/06/2022 - 12:16

Forums:

Урок 9 задача 6

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

1 Вариант

program Project1;
var a, b, c: integer;
begin
  writeln('Введите a, b, c');
  readln(a, b, c);
  if (a > b) and (a > c) then
  writeln('Первое число самое большое')

end.

2 Вариант

program Project1;
var a, b, c: integer;
begin
  writeln('Введите a, b, c');
  readln(a, b, c);
  if (a > b, c) then
   writeln('Первое число самое большое')
end else
   writeln('число а не больше')

end.

3 Вариант

rogram Project1;
var a, b, c, d: integer;
begin
  writeln('Введите a, b, c');
  readln(a, b, c);
  if (a > b, c) then
   writeln('Первое число самое большое')
  d := a + b
  wrteln(d)

end.
  • Log in to post comments
  • 1320 reads

kuznmax

Sun, 02/06/2022 - 12:51

.

kuznmax

Sun, 02/06/2022 - 12:52

.

vedro-compota's picture

vedro-compota

Sat, 02/12/2022 - 11:28

исправить по разбору задач

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

kuznmax

Sat, 02/19/2022 - 10:20 

1 Вариант
program Project1;
var a, b, c: integer;
begin
  writeln('Введите число a');
  readln(a);
   writeln('Введите число b');
  readln(b);
   writeln('Введите число c');
  readln(c);

  write('Максимальное число:');
  if ((a >= b) AND (a >= c)) then
     writeln(a)
  else if ((b > a) AND (b > c)) then
     writeln(b)
  else
  writeln(c);

  readln();
end.  

2 Вариант
program Project1;
var a, b, c: integer;
begin
  writeln('Введите число a');
  readln(a);
   writeln('Введите число b');
  readln(b);
   writeln('Введите число c');
  readln(c);

  write('Максимальное число:');
  if (a > b) then
     if (a > c) then
     writeln(a)
     else
      writeln(c)
   else
     if (b > c) then
      writeln(b)
     else
      writeln(c);

  readln();
end.               
3 Вариант
program Project1;
var a, b, c, v: integer;
begin
  writeln('Введите число a');
  readln(a);
   writeln('Введите число b');
  readln(b);
   writeln('Введите число c');
  readln(c);

  write('Максимальное число:');
  if (a > b) then
     writeln(a)
     else
      writeln(b)
   else
      writeln(c);
v := a + b
writeln (v)

  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 02/19/2022 - 10:48

третий вариант неправильный, для поиска максимума ничего складывать не надо

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