Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
Программа может выглядеть так:
program Func;
uses Crt;
var a,b: integer;
rez, fa, fb: integer;
begin ;
ClrScr;
a:=4;
b:=-5;
fa:=3*sqr(a)+4*a-5;
fb:=3*sqr(b)+4*b-5;
Rez:=fa+fb;
WriteLn('f(4)=', fa);
WriteLn('f(5)=', fb);
WriteLn('f(4)+f(5)=', Rez);
ReadLn;
end.
,
1/ чем больше пикселей на изображении, тем оно качественнее Ответ в)
2/ первое расширение - программы архиватора, второй -текстовый (Word); третий-Блокнот; четвертый - Paint Ответ d)
3/ Ответ с)