Вопрос по информатике:
Даны 3 числа a, b, c. Если a<b<c, числа удвоить. Иначе найти их абсолютную величину.
- 21.06.2016 18:02
- Информатика
- remove_red_eye 9949
- thumb_up 22
Ответы и объяснения 1
Program n1;
Uses CRT;
Const n=10;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b i c');
Readln(a,b,c);
If (a
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln;
Writeln(a,b,c);
readln
end.
- 22.06.2016 12:25
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.