Вопрос по информатике:
Дам 100 баллов!! Сделайте в паскале, то что выделенно! Задание небольшие!!!
Хотябы 3 сделайте!!
Пожаловаться
- 14.02.2018 13:15
- Информатика
- remove_red_eye 19880
- thumb_up 16
Ответы и объяснения 1
1) Program Sq1;
Var a, b, c, k : Real;
Begin
Writeln ('Введите a');
Readln (a);
Writeln ('Введите b');
Readln (b);
Writeln ('Введите c');
Readln (c);
k:=(b+sqrt(b^2+4*a*c))/(2*a);
If a=0 Then Writeln ('Решений нет! ')
Else
Writeln ('k=', k:2:2)
End;
End.
Var a, b, c, k : Real;
Begin
Writeln ('Введите a');
Readln (a);
Writeln ('Введите b');
Readln (b);
Writeln ('Введите c');
Readln (c);
k:=(b+sqrt(b^2+4*a*c))/(2*a);
If a=0 Then Writeln ('Решений нет! ')
Else
Writeln ('k=', k:2:2)
End;
End.
Пожаловаться
- 15.02.2018 16:58
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы