Информатика, вопрос задал Cryphuz , 1 год назад

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

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

Cryphuz: Pascal

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

vikidiki: 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.

Ответы на вопрос

Ответил vikidiki

Ответ:

Попробуйте. Конечно, можно использовать встроенную в 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<a then min:=b;

if c<b then min:=c;

if d<c then min:=d;

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

min:= min * 5;