Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
Ответ:
1. 49
2. 10
Объяснение:
1. (число < 50) И НЕ (число чётное)
Чтобы выражение было истинным обе его части должны быть истинными
Наибольшее число при котором истинна левая часть выражения 49
(49 < 50) = 1
Проверим это число подстановкой в правую часть выражения
НЕ (49 чётное) = НЕ (0) = 1
Подходит
2. НЕ (x<10) и (число четное)
Чтобы выражение было истинным обе его части должны быть истинными
Преобразуем левую част выражения
НЕ (x<10) равно х >= 10
Наименьшее число при котором истинна левая часть выражения 10
(10 >= 10) = 1
Проверим это число подстановкой в правую часть выражения
(10 чётное) = 1
Подходит
<em>1.Краткая запись</em>
<em>2.Решение</em>
<em>3.Ответ</em>
Var a,b:integer;
begin
while a*4<65 do
begin
writeln('кролик: ',a,' гусь: ',(64-a*4) div 2);
a:=a+1;
end;
end.