(паскаль) Помогите исправить ошибки в программеProgram QWE; var a,b,y…

Question

(паскаль) Помогите исправить ошибки в программеProgram QWE; var a,b,y,x: real; k: integer; beginreadln (a,b); k: =0; if a*a3; end; if k=0 thenend. Условие задачи: Если A^2B^2, вычислить значение функции y=sinx+0,12, где x изменяется на интервале от 1 до 3 с шагом 0,2. Подсчитать количество отрицательных значений функции.

Answer 1

63

eduard588

22 февраля 2023

var a, b, y, x: real; k: integer; begin readln (a, b); k: =0; if a*a=b*b then writeln ('a*a=b*b'); if a*a > b*b then begin x: =1; repeat y: =sin (x)+0,12; if y < 0 then k: =k+1; x: =x+0,2; until x > 3; end; writeln ('Y=', y); writeln ('Кол-во отрицательных значений функции: ', k); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: