Нажать клавишу ESC и все - вышел в режим создания презентации
Ответ:
var X, Y: Real;
begin
WriteLn("Введите значение аргумента: ");
ReadLn(X);
// так как деление на ноль вызовет ошибку, исключаем это
if (X <> 0) then
begin
Y:=1/X*X+4*X+5;
WriteLn("Y= ", Y);
end;
else
WriteLn("Введен недопустимый аргумент");
end.
1 вариант:
If (a>0) or (a=0) and (b>0) or (b=0) and (c>0) or (c=0) Then s:=a+b+c Else
If (a>0) or (a=0) and (b>0) or (b=0) and (c<0) Then s:=a+b Else
If (a>0) or (a=0) and (c>0) or (c=0) and (b<0) Then s:=a+c Else
If (b>0) or (b=0) and (c>0) or (c=0) and (a<0) Then s:=b+c Else
If (a<0) and (b<0) and (c>0) or (c=0) Then s:=c Else
If (a<0) and (c<0) and (b>0) or (b=0) Then s:=b Else s:=a;
2 вариант:
If (a>0) or (a=0) Then s:=s+a;
If (b>0) or (b=0) Then s:=s+b;<span>
If (c>0) or (c=0) Then s:=s+c;</span>
См. в прикрепленном файле
Вообще есть специальная программа HotPotatos - легко создаются кроссворды. Нужно только ввести вопросы, а программа сама составит кроссворд