Предмет: Информатика,
автор: Axinia37
Помогите пожалуйста решить задачу
Через паскаль (программирование алгоритмов разветвляющейся структуры)
Задача: ДАНО 3 ЧИСЛА. НАЙТИ ПРОИЗВЕДЕНИЕ ДВУХ НАИМЕНЬШИХ ЧИСЕЛ
(НАПИСАТЬ ПРОГРАММУ И НАЧЕРТИТЬ БЛОК СХЕМУ)
Ответы
Автор ответа:
0
var a,b,c,d:integer;
begin
Write('Первое число: ');
Readln(a);
Write('Второе число: ');
Readln(b);
Write('Третье число: ');
Readln(c);
if (a < c) and (b < c) then d:=a*b;
if (a < b) and (c < b) then d:=a*c;
if (b < a) and (c < a) then d:=b*c;
write('Результат: ',d);
end.
Всегда пожалуйста))
begin
Write('Первое число: ');
Readln(a);
Write('Второе число: ');
Readln(b);
Write('Третье число: ');
Readln(c);
if (a < c) and (b < c) then d:=a*b;
if (a < b) and (c < b) then d:=a*c;
if (b < a) and (c < a) then d:=b*c;
write('Результат: ',d);
end.
Всегда пожалуйста))
Похожие вопросы
Предмет: Алгебра,
автор: Tamara020971
Предмет: Физика,
автор: katrina181106
Предмет: Математика,
автор: massive23
Предмет: Геометрия,
автор: darya280797