Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s:= 0; for k:= 4 to 9 do s:= s
Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s:= 0; for k:= 4 to 9 do s:= s + 12; writeln(s); End. Ответ:
Var num1,num2:real; begin write('Введите первое число: '); readln(num1); write('Ведомое второе число: '); readln(num2); writeln('Наибольшее число: '); if (num1 > num2) then writeln(num1) else writeln(num2) end.