Вопрос по информатике:
Помогите по программированию.Составьте программу по этой блок схеме.Очень срочно.Например:
program z1;
var x,y:real;
begin
writeln('введите два числа');
read(x);
if x>0 then y:=SQRT(x)
writeln('y=',y);
end.
Пожаловаться
- 14.12.2017 10:11
- Информатика
- remove_red_eye 4108
- thumb_up 49
Ответы и объяснения 2
Program zada4a;
var a, b, c: integer; s, k, y: real;
begin read(a, b, c); s := 4 * ((sqrt(a + b * b)) / 3 + c); k := sqrt(abs(a * b + c)) - 2 * (s * s); y := s * k + ((s * (sqrt(-k)) / b * c)); write(y)end.
var a, b, c: integer; s, k, y: real;
begin read(a, b, c); s := 4 * ((sqrt(a + b * b)) / 3 + c); k := sqrt(abs(a * b + c)) - 2 * (s * s); y := s * k + ((s * (sqrt(-k)) / b * c)); write(y)end.
Пожаловаться
- 16.12.2017 15:45
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы