Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
12 ячеек
Создал бы сам Excel таблицу и проверил
var i: integer;
s: string;
begin
s: ="abcdefghijklmnopqrstuvwxyz";
for i: = 1 to length(s) do
writeln(s[i],' = ', ord(s[i]));
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;
end;
Популярные вопросы