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

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.

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

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