Паскаль.

[Svetlanka]

Паскаль.

Помогите пожалуйста!!! Очень Нужно!!

1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...).

2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1.

3.7 Разработать программу формирования стека, куда помещается последовательность символов, вводимых с клавиатуры. Процесс ввода символов должен прекращаться, как только среди вводимых символов появляется точка, после этого программа должна реверсировать стек. Под реверсированием здесь понимается изменения направления ссылок в стеке на противоположное, т.е. после реверсирования вершина и дно стека меняется местами.

 

[shrek=)]

1.Дана целочисленная переменная n=10 и массив s, состоящий из n символов, напечатать те элементы массива s, индексы которых являются степенями двойки (1,2,4,8,16, ...).

const
n=10;
var
i:integer;
s:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
s[i]:=random(100);
for i:=1 to n do begin
if (i=1) or (i=2) or (i=4) or (i=8)
then writeln (i,'=',s[i]);
end;
readln
end.

вот как то так.

 

[shrek=)]

2.Дан файл f1, элементами которого являются целые числа. Переписать в файл f2 только числа файла f1, которые делятся на 3 и 5 без остатка. Выдать на экран содержимое файла f2, предусмотрев создание файла f1.

var
f:text;
a:array [1..100] of integer;
k,i:integer;
begin
assign (f,'c:\f1.in');
reset (f);
for i:=1 to 100 do
read (f,a[i]);
close (f);
assign (f,'c:\f2');
rewrite (f);
for i:=1 to 100 do begin              
if (a[i] mod 3=0) and (a[i] mod 5=0) then
begin
writeln (f,a[i]);
write (' ',a[i]);
end;
end;
close (f);
readln
end.