Попробуйте. Конечно, можно использовать встроенную в 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;
writeLn('Увеличенное в 5 раз: ', min);
END.
Поделитесь своими знаниями, ответьте на вопрос:
Один печатный лист слдержит 64 строки, каждая строка в среднем состоит из 65 симвалов.какое количество килобайт в 32 печатных листах?
В 32 печатных листах 32 х 4 160 = 133 120 символов.
Если используется однобайтная кодировка, то каждый символ занимает один байт, а для перевода в килобайты надо выполнить деление на 1 024.
Тогда в 32 печатный листах 133 120 / 1 024 = 130 Кбайт.
ответ: 130 Кбайт