В ромбе a mod 2=0
если да то sqr(a)
если нет то <span>exp(3*ln(a))
Надеюсь на лучший ответ:)</span>
Uses crt;
var a,b,c,i,i_:integer;
begin
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
write('Введите 3 число: ');
readln(c);
i:=a+b+c;
i_:=a*b*c;
writeln('Сумма: ',i);
writeln('Произведение: ',i_);
<span>end.</span>
Var d,s:real;
i:integer;
begin
for i:= 1 to 20 do writeln(i,'дюйм = ',i*2.54)
<span>end.</span>
Как я понял, то:
1. Используем SUMIF(СУММЕСЛИ), указываем диапазон суммирования, и условие для суммирования.
2. Находим минимальное значение среди всех этих сумм.
//Pascal ABC.NET v3.1 сборка 1219
Var
y,x:real;
begin
readln(x);
if x<=0 then
begin
writeln('Выход за пределы ОДЗ');
exit;
end;
y:=power(x,3)-(sqr(x)-x+3)/sqrt(x);
writeln('y=',y);
end.
Пример ввода:
1.2
Пример вывода:
y=-1.2297018105279