Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Задача

Задача - вопрос №270853

Меньшее из трех заданных чисел ABC заменить удвоенным произведением этих чисел. Через паскаль пожалуйста.

юля
14.05.12
Учеба и наука / Информатика
1 ответ

Ответы

Валентина

program chislo;

uses crt;

var a,b,c:integer;

begin

clrscr;

writeln('введите три целых числа');

readln(a,b,c);

if (a<=b) and (a<=c) then a:=2*a*b*c;

if (b<=a) and (b<=c) then b:=2*a*b*c; 

if (c<=a) and (c<=b) then c:=2*a*b*c;

writeln('a=',a:5, 'b=',b:5, 'c=',c:5);

readln;

end.

Буду благодарна, если отметите как лучший. 
14.05.12

Еva
от 100 p.
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее