Обчилiть програму значень функцiï в Pascal за схемою яка подана на фото Условие :Лишнего не писать , писать ответ если ( написали програму)

например: это только пример нак надо мне написать ответ

Program PI;
Var a,b,c,Y: real;
begin
writeln('Ввести a,b,c');
readln(a,b,c);
Y:=((abc)-123c)/ac
writeln('Y='Y);
end.

212

483

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

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

alese4kas94p0cen0

Информатика

4,4(60 оценок)

Program Ages;

var age :integer;

begin

write('Возраст ребёнка: '); readln(age);

if age = 1 then

writeln(age, ' год' );

if (age < 5) and (age > 1) then

writeln(age, ' года' );

if age > 4 then

writeln(age, ' лет' )

end.

Program Seq;

var age :integer;

begin

for var i := 0 to 10 do

begin

if i mod 2 <> 0 then

write(i, ', ');

end;

end.

Удачи))

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

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

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

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

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

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