Пару задачек по Паскалю, помогите если не тяжело...

[Aigerim]

Код: Выделить всё

if (n div 10 = a) or (n mod 10 = a) then
  writeln('Da');[/quote]
thank you very much

[Aigerim]

НАЙТИ КВАДРАТ СЛОГАЕМЫХ ВСЕХ ЦЕЛЫХ ЦЫФР НАЧИНАЯ С А ДО 50. А МЕНЬШЕ 50

[Хыиуду]

"И вовфе необявательно так орать! Я и ф первого ваза вас пвекрафно уфлышал!" (с) Кролик.
Что, по-вашему, такое "КВАДРАТ СЛОГАЕМОГО ЦЕЛОЙ ЦЫФРЫ"?

[Света]

Здравствуйте! Помогите пожалуйста глупой блондиночке с задачкой. "Паскаль-одномерные массивы". Вставить элемент массива с номером k.

[drummer]

Куда вставить?

[Света]

Вставить в ряд элементов массива.

[Хыиуду]

Света, достаточно было создать одну тему, а не копировать сообщение в две или три другие, да еще и дублировать личкой.

[drummer]

Идем с конца до нужной позиции при этом сдвигая каждый элемент влево. В итоге освободим ту позицию, куда надо вставить элемент. Вставляем.

[Света]

Привет всем! Помогите разобраться с задачей: создать нетекстовый файл Video.dat, в котором хранятся данные о фильмах (назв. фильма, киностуд.,реж.,год вып.).Переписать в текстовый файл инф. о фильмах упоряд. по году выпуска. Переписать в отд. файл режис. и назв. фильмов, снимавшихся на одной киностуд.Вывести на экран инфю о фильмах, снятых до 1999г. Я вот начала делать, а правильно или нет не знаю:const
MaxFilms=15;
type FilmArray =array [1..MaxFilms] of string;
type film-record
a(Nazavnie) : string[45];
b(KStudio) : string[45];
c(Regiser) : string[45];
d(God) : integer;
end;

var
F : file of Film;
Дальше у меня идет список фильмов
....

[MOTOCoder]

MaxFilms=15;
type film-record
a(Nazavnie) : string[45];
b(KStudio) : string[45];
c(Regiser) : string[45];
d(God) : integer;
end;

Это на каком языке?
На паскаль это даже отдаленно не похоже.
Тогда уж так:
[syntax='Delphi']
type film=record
Nazavnie : string[45];
Studio : string[45];
Regiser: string[45];
God : integer;
end;
[/syntax]