Составить программу в pascalabc.net с использованием подпрограммы в виде процедуры: котоая считает сумму двух одинаковых чисел.если это не так,то программа выаодит на экран сообщение о том,что числа разные. повторяется до тех пор,пока ведение числа не будут удовлетворять заданному условию

296

435

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

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

abduleuloew201

Информатика

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

Procedure sumsamenumbers(); var a, b, sum: real; begin repeat write('введите a и b: '); readln(a, b); if a = b then begin sum : = a + b; writeln('сумма = ', sum) end else writeln('числа не одинаковые'); until a = b; end; begin sumsamenumbers(); end.

Hyliganka0666

Информатика

4,8(14 оценок)

1. внимательно читаем условие . требуется составить и использовать процедуру, которая считает сумму двух одинаковых чисел. остальное текстуально относится к самой программе: ввод данных, проверка условия с зацикливанием и вывод. // pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! procedure strange(a,b: real; var c: real; var flag: boolean); begin flag: =a=b; if flag then c: =a+b end; begin var a,b,c: real; var f: boolean; while true do begin (a,b): =readreal2('введите пару чисел: '); strange(a,b,c,f); if f then begin writeln('сумма равна ',c); break end else writeln('числа не равны') end end. пример введите пару чисел: 2 4.5 числа не равны введите пару чисел: 4 4 сумма равна 8 2. можно представить, что автор не в ладах с языком и на самом деле процедура должна сделать все сама, а программа - только вызвать эту процедуру. тогда решение может быть таким. procedure strange2; begin while true do begin var (a,b): =readreal2('введите пару чисел: '); if a=b then begin writeln('сумма равна ',a+b); exit end; writeln('числа не равны') end end; begin strange2 end. пример введите пару чисел: 4.5 4.4 числа не равны введите пару чисел: 3.6 3.6 сумма равна 7.2

tusovki

Информатика

4,5(61 оценок)

16 бит - следовательно, каждое измерение звука записывается в 2 байта. частота дискретизации 44100 гц, значит, измерения производятся 44100 раз в секунду. таким образом, искомый объем - это произведение 2 байт, 44100 гц и 60 секунд: n=2*44100*60=5 292 000 байт, или приблизительно 5,047 мегабайт. если же запись стерео, то объем увеличивается еще в два раза.

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

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

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

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

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

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

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

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

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

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