program z;
uses crt;
var x,y,z: real;
begin
clrscr;
write('введите х: ');
readln(x);
write('введите y: ');
readln(y);
if (x< 0) and (x> y) then z: =x;
if (x< 0) and (x< y) then z: =y;
if (x> =0) then z: =(x+y)/2;
writeln('z=',z);
readkey;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить программу, которая подсчитывает общее количество целых пятизначных чисел, составленных из различных цифр, которые тем свойством, что число, образованное первыми двумя цифрами, будучи умноженным на среднюю цифру, даёт число, образованное последними двумя цифрами. например, число: 12896: 12*8=96, значит число подходит.