Теория - паскаль

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

Теория - паскаль

Дашка

Новый участник

Сообщения: 13
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

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

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

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

Отправлено: 12:14, 01-01-2011

No Need In Magic

Новый участник

Сообщения: 8
Благодарности: 1

Профиль | Отправить PM | Цитировать

ну вот основная часть первой:

var i,n:integer; s:array[1..10] of {...};
begin
{тут вводим массив, кол-во и все такое}
i:=1;
while i<=n do begin
writeln(s[i]);
i:=i*2;
end;
{...}
end.

=========================
вторая

var t:integer; c:char; f,g,h:text;
begin
assign(h,'f1');reset(h);
assign(f,'f2');rewrite(f);
repeat
read(h,t);
if t mod 15=0 then write(f,t,' ');
until eof(h);
assign(g,'f2');reset(g);
repeat
read(g,c);
write(c);
until eof(g);
end.

Отправлено: 17:44, 07-01-2011 | #2