Поделитесь своими знаниями, ответьте на вопрос:
1. з клавіатури ввести два числа x і z. вивести на екран цілу частину та остачу від ділення числа x на z. передбачити перевірку z≠0. результати вивести на екран. передбачити виведення підказок для користувача. приклад: "введіть значення x і z! " 2. обчислити значення виразу n! *(n+1)! від заданого значення n (значення n вводиться з клавіатури 3. обчислити значення виразів. початковими значеннями змінних c і d для кожного виразу є: c = 2 і d = 1. у відповіді вказати: значення та тип результату, кінцеве значення змінних. а) ++c+d++ б) c++*2 ! = ++d*2 в) (d < 0) || (--c < 2) ? -c : d
var
x,y,z:integer;
m:single;
begin
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m)
end.
Тестовое решение:
Введите x,y,z: 3 6 -2
-0.3
Borland Pascal 7.01
uses Crt;
function max(m,n:integer):integer;
begin if m>n then max:=m else max:=n end;
function min(m,n:integer):integer;
begin if m<n then min:=m else min:=n end;
var
x,y,z:integer;
m:real;
begin
ClrScr;
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m);
ReadKey
end.
Тестовое решение:
Введите x,y,z: 3 6 -2
-3.0000000000E-01