Program chisla;
var a,b:integer;
begin
read (a);
if
b=a div 2 then
write('Число четное') else
write('Число нечетное');
end.
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.
Ответ:
Объяснение:матиндеги гиперсилтеменин колдану максаты: бул силтеме аркылы биз www.text.ru сайтындагы антиплагиат батырмасына карай отемиз
Самое 1 не подходит , ибо остальные это продукты майкрософт офис, 2 для презентаций, 3 это ворд для текстовых документов , а 4 это для работы с базой данных
Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)>eps do
begin
i:=i+1;
f:=f*i;
xi:=xi*x;
an:=xi/f;
s:=s+an;
end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.
Пример:
0.9
<span>s = 2.4595 e^0.9 = 2.4596</span>