Паскаль. составьте блок схему и программу определения минимума из трёх чисел не используя логических операций. программа должна иметь дружественный интерфейс.

216

500

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

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

DanyaHD

Информатика

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

Function min(aa,bb : integer) : integer; begin min: =(aa+bb) div 2 - abs(aa-bb) div 2; end; var a,b,c : integer; begin write('введите три числа: '); readln(a,b,c); writeln('минимальное число: ',min(a,min(b,; end.

Apelsinka032

Информатика

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

№1 var a, b, k, i: integer; begin k: =0; readln(a); for i: =1 to 9 do begin readln(b); if a=b then k: =k+1; end; writeln('ответ: ', k); end. №2 var a, k, i: integer; begin k: =0; for i: =1 to 12 do begin readln(a); if a mod 5=0 then k: =k+1; end; writeln('ответ: ', k); end.