Напишите программу, которая считывает с клавиатуры переменные данные a, b, c и вычисляет следующие выражения: При любых значениях переменных программа выполняется корректно? С чем это связано?
Answers & Comments
Max12383
В 3-ем может быть ошибка. У меня 2-ой месяц нет матана, так что извиняй если что =) А так сама программа составлена правильно
var a, b, c, o1, o2, o3: real;
begin writeln('Введите a,b и c через пробел'); readln(a, b, c); o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a)); o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a))))); o3 := 1 / 1 + 1 / a + 1 - b / 1 - c; writeln('a) ', o1); writeln('b) ', o2); writeln('c) ', o3); end.
3 votes Thanks 1
kristuna1234
а есть результат работы программы, он мне тоже нужен
Max12383
Ты пишешь a,b,c и после он решает уровнение и выводит на экран
Answers & Comments
var
a, b, c, o1, o2, o3: real;
begin
writeln('Введите a,b и c через пробел');
readln(a, b, c);
o1 := sqrt(2 * a - 3) / b - 1 + sqrt(sqr(c) + a * c + sqr(a));
o2 := sqrt(2 + sqrt(2 + sqrt(b + sqrt(abs(c - a)))));
o3 := 1 / 1 + 1 / a + 1 - b / 1 - c;
writeln('a) ', o1);
writeln('b) ', o2);
writeln('c) ', o3);
end.