Есть код на паскале, который считает выражение и запрещает ввод букв. нужно сделать проверку знаменателя на 0 обоих выражений, и вывести текст в случае нуля pascalabc program aip; var flta,fltb,fltb2: real; code: integer; function ip(a: real): real; var a1: string; begin write('введите значение а= '); // repeat readln(a1); val(a1,a,code); if (code< > 0) then writeln('no'); until (a> 0); // ip: =a; end; begin flta: =ip(flta); fltb: = ((1-2sin(flta)sin(flta))/(1+sin(2*; fltb2: = ((1-tan(flta))/(1+tan(; writeln('первая формула ',fltb: 5: 5); writeln('вторая формула ',fltb2: 5: 5); end.

129

281

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

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

Rhhufyko

Информатика

4,6(16 оценок)

Pascalabc program aip; var flta,fltb,fltb2: real; code: integer; function ip(a: real): real; var a1: string; begin write('введите значение а= '); // repeat readln(a1); val(a1,a,code); if (code< > 0) then writeln('no'); until (a> 0); // ip: =a; end; begin flta: =ip(flta); if abs(1+sin(2*flta)) < 0.000001 then begin writeln('delenie na nol v pervoy formule'); end else begin fltb: = ((1-2*sin(flta)*sin(flta))/(1+sin(2*; writeln('первая формула ',fltb: 5: 5); end; if abs(1+tan(flta)) < 0.000001 then begin writeln('delenie na nol vo vtoroy formulte'); end else begin fltb2: = ((1-tan(flta))/(1+tan(; writeln('вторая формула ',fltb2: 5: 5); end; end.

GremMaster

Информатика

4,6(10 оценок)

Var k: integer; a, s: real; begin write('начальная стоимость: '); readln(a); {write('число проданных газет: '); readln(k); } k : = 200; if k < = 50 then s : = k * a else begin s : = 50 * a; s : = s + (k - 50) * a * 1.2; end; writeln('выручка составила ', s, ' руб.'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.