Регистрация
DanilSoldatkin
08.04.2023 17:34
Информатика
Есть ответ 👍

Написать программу вычисления и вывода на экран значения функции F

Язык Pascal

192
380
Посмотреть ответы 2

Ответы на вопрос:

BPANRUSSIA
BPANRUSSIA
4,6(20 оценок)

Программа:

Pascal:

var

 A, B, F: real;

begin

 write('A = ');  readln(A);

 write('B = ');  readln(B);

 if (A < 0) and (B < 0) then

   F := power(sin(1.121 * A * B), 4)

 else if (A > 0) and (B > 0) then

   F := cos(1 / A / B)

 else

   F := 1.121 * A * B;

 writeln('F = ', F)

end.

аллалесниченко
аллалесниченко
4,7(46 оценок)
Var     s: string;     b: boolean;     i: integer; begin b: =false; write('введите строку: '); readln(s); for i: = 1 to length(s)-1 do       if s[i] = 'в' then             if s[i+1] = 'а' then b: =true; if b then write('есть') else write('нет') end.

Популярно: Информатика