nadezhda980
16.07.2021 13:06

1. дано 3 числа. найти произведение двух наименьших из этих чисел написать программу на pascal

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
MaksimKim2005koreec
06.10.2020 17:37
Первая задача

Program DvachAnon;
var a,b,c,max:real;
begin 
  write('Введите первое число: ');
  read(a);
  write('Введите второе число: ');
  read(b);
  write('Введите третье число: ');
  read(c);
  if a>b then
     max:=a
  else
     max:=b;
  if c>max then
      max:=c;
  write ('Произведениe двух наименьших из трех чисел: ',a*b*c/max);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота