1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
1. 1)в. 2)б. 3)а2.ім’я_поштової_скриньки_користувача@доменне_ім’я_поштового_сервера3. 1),2)4. 3),4)5. 1),2),3),5)6. 1),3),4)
Program start;
var a:integer;
begin
readln(a);
writeln(a,a);
end.
Истина ствол, листься корень и.т.д.
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var
A,B:integer;
f:Text;
begin
Assign(f,'input.txt');
Reset(f);
readln(f,A,B);
writeln('Размеры участка ',A,', ',B);
if (A mod 2=0) or (B mod 2=0) then writeln('0')
else writeln('1')
end.
Результат решения:
Размеры участка 8, 4
0