1)4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150. 2). Вычислить значение функции
alex 10
9.12.2014 20:26
Спойлер(Показать/Скрыть)
uses crt; var s,ch1,ch2,ch3,ch4,ch,k5:real; d:boolean; begin d:=true; while d=true do begin write('введите число'); readln(ch1); write('введите 2-е число'); readln(ch2); if ch1>ch2 then writeln('введите число'); readln(ch1); write('введите 2-е число'); readln(ch2); if ch2<=ch1 then begin write(' программа закончена'); d:=false; end; if ch1>105 then s:=s+ch1; if ch2>105 then s:=s+ch2; writeln(s); end; end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.