Помогите пожалуйста) С клавиатуры вводят 4 числа, определить меньшее и увеличить его в 5...

Question

Помогите пожалуйста) С клавиатуры вводят 4 числа, определить меньшее и увеличить его в 5 раз

Comments

На каком языке программирования, вам необходим, чтобы был ответ?

---

Pascal

---

У меня нет возможности точно проверить код на ошибки, но должно быть так:

---

program YourTitle;

var a,b,c,d, min:integer;

BEGIN
writeln('Введите 4 целых числа через пробел или Enter -> ');
readln(a,b,c,d);

min:=a;
if bif cif dwriteln('Меньшее из чисел = ',min);

min:= min * 5;
writeLn('Увеличенное в 5 раз: ', min);

END.

Answer 1

Ответ:

Попробуйте. Конечно, можно использовать встроенную в PascalABC.Net функции min(a, b), для определиня минимального числа. Но чтобы наверняка не было бы проблем, можно пойти стандартным путем.

Объяснение:

program YourTitle;

var a,b,c,d, min:integer;

BEGIN

writeln('Введите 4 целых числа через пробел или Enter -> ');

readln(a,b,c,d);

min:=a;

if b

if c if d writeln('Меньшее из чисел = ',min);

min:= min * 5;

writeLn('Увеличенное в 5 раз: ', min);

END.