Какой из исполнителей является наиболее совершенным?

Процессор
Компьютер
Робот
Мультиварка

152

489

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

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

evgenypuchnin2

Информатика

4,7(49 оценок)

робот

Объяснение:

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