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

250

325

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

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

malka75

Информатика

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

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.

vanya164

Информатика

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

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

larisagorkavchenko

Информатика

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

Var n: byte; begin write('введите оценку: '); readln(n); if n = 1 then writeln('плохо'); if n = 2 then writeln('неудовлетворительно'); if n = 3 then writeln('удовлетворительно'); if n = 4 then writeln('хорошо'); if n = 5 then writeln('отлично'); end.