Question

1. Склавиатуры вводятся 2 числа аиь. Выведите на экран большее число с комментарием, например: введены числа а
17, b = 25, вывод – “число b = 25 больше чем число а = 17.
2.С клавиатуры вводятся 2 числа — аи b. Обменяйте эти
числа значениями и выведите результат на экран, например:
Введены Числа а 17, b = 25, вывод – а = 25, b = 17.
3. Генерируется случайное трёхзначное число. Выведите его
наибольшую цифру, например: сгенерировано 398, вывод – 9|
КУМИР

Answer 1

на Pascal

Объяснение:

var

 a, b, k, c, m : integer;

begin

// вывод чисел

 a := 17;

 b := 25;

 if b > a then

   Writeln(Format('число b =%d  больше чем число а = %d',[b, a]));

//обмен значениями

 c := a;

 a := b;

 b := c;

 Writeln(Format('a=%d    b=%d',[a, b]));

//случайное число

 Randomize;

 c := 0;

 while c < 100 do  // получаем случайное 3-х значное число

   c := Random(999);

 a := c div 100;

 b := c div 10 - a*10;

 k := c - a*100 - b*10;

 m := a;

 if m<b then m := b;

 if m<k then m := k;

 Writeln(Format('в %d наибольшее число %d',[c, m]));

end;