Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha2;
uses crt;
var i,n,a: integer;
b,y,c,l: real;
begin
clrscr;
readln(n);
a: =1;
b: =2;
c: =5;
for i: =1 to n do
if a mod 2 = 0 then
l: =a+b/c
else
l: =a-b/c;
a: =a+1;
b: =b+2;
c: =c+5;
y: =y+l;
end;
writeln(y: 2: 2);
readkey;
end.
первую по подробней расспишите
не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.
var
b1,b2,i,n,p: integer;
write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);
p: =-1;
for i: =2 to n do
p: =p*(-1);
b2: =p*b1-8;
writeln (i,' элемент = ', b2);
b1: =b2;
16-битной кодировке unicode.
один символ s =16 бит
количество бит текстового файла к= 128000 бит/с * 60 с= 7680000
количество символов к/s=7680000/16 =480000
Популярные вопросы