Var x,y,r:real;
begin
write ('Введите 2 числа х и у '); Readln(x,y);
r:=x*x+y*y/abs(x*y)+5;
writeln( 'Значение выражения = ' , r);
end.
Существенные:
качество, затраты.
несущественные:
размер, цвет.
Var s:string;
z,y,x,v:char;
begin
read(s);
z:=s[1];
y:=s[2];
x:=s[3];
v:=s[4];
write(z,y,x,v,'ток');
end.
На первом месте могут быть только 3 буквы (согласные), на втором любые из 5 (гласные и согласные), на третьем тоже, а на четвертом только 2 (гласные).
3*5*5*2=150