Регистрация
demyaniuk
01.09.2022 03:53
Информатика
Есть ответ 👍

Составить программу для нахождения 1 наименьшего из 4 чисел, после чего умножить его на 2

151
393
Посмотреть ответы 3

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

Black13495
Black13495
4,5(63 оценок)

uses crt ;

function min ( a , b :real ) :real;

begin

if a<b then min := a

else min := b ;

end;

var x , y , z , t :real;

begin

clrscr ;

writeln ( 'Введите 4 числа:' ) ;

readln ( x , y , z , t ) ;

write ( 'Минимальное=' , min( min( x , y ) , min( z , t )) : 0 : 2 ) ;

kozaksolomia1
kozaksolomia1
4,4(6 оценок)

Приведу пример на Haskell

main :: IO ()main = do  a <- read $ getLine :: IO Int  b <- read $ getLine :: IO Int  c <- read $ getLine :: IO Int  d <- read $ getLine :: IO Int  print $ 2 * minimum [a, b, c, d]
KsehiaKomleva
KsehiaKomleva
4,6(55 оценок)
На паскале : begin writeln(ord('1')); end. результат : 49

Популярно: Информатика