Вопрос по информатике:
Даю 30 балов помогите с информатикой. надо написать программу в Паскаль АВС.
Пожаловаться
- 20.03.2016 13:19
- Информатика
- remove_red_eye 4492
- thumb_up 45
Ответы и объяснения 2
Var a,b:real;
begin
readln(a);
if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!
else b:=abs(a);
writeln(b:5:2);
end.
Пример:
20
4.47
begin
readln(a);
if (a>=0)or(a>100) then b:=sqrt(a) // (a>100) здесь лишнее!
else b:=abs(a);
writeln(b:5:2);
end.
Пример:
20
4.47
Пожаловаться
- 21.03.2016 17:34
- thumb_up 42
Var a,res: double;
begin
a := 100;
if a>100 then res := sqrt(a)
else res:=abs(a);
writeln(res:5:2)
end.
begin
a := 100;
if a>100 then res := sqrt(a)
else res:=abs(a);
writeln(res:5:2)
end.
Пожаловаться
- 22.03.2016 21:47
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы