Паскаль. Строки и последовательность

[Raolin]

Нужно сделать на паскале:
1.составьте программу, которая строит из N знаков "*", M знаков "!". Числа N и M задаются с клавиатуры.

2.составьте программу, которая определяет сколько раз встречаются числа X, Y, X-Y, X+Y в последовательности из 50 заданных чисел. Данные задаются с клавиатуры в таком порядке X, Y и 50чисел последовательности.

Спасибо!

[p51x]

сколько платите?

[Loreena.J]

Дня через 2 я напишу вам эти программы бесплатно . Сейчас, к сожалению, у меня совсем нет свободного времени.

Сообщение от Raolin

Нужно сделать на паскале:
2.составьте программу, которая определяет сколько раз встречаются числа X, Y, X-Y, X+Y в последовательности из 50 заданных чисел. Данные задаются с клавиатуры в таком порядке X, Y и 50чисел последовательности.

Вы должны написать что-то вроде этого:

program zadacha;
var
   f, g, j, d, c, x1, y1, m, n, k: Integer;
   a, x, y, S, S1: String;
begin
   WriteLn('Vvedite chislo X');
   ReadLn (x);
   WriteLn('Vvedite chislo Y');
   ReadLn (y);
   WriteLn('Vvedite stroky coctoyashyuyu iz 50 simvolov');
   ReadLn(a);
   f:= 0; g:=0;
   for j:=1 to 50 do
       if a[j] = x then
          f:= f + 1;
   for j:=1 to 50 do
       if a[j] = y then
          g:= g + 1;
   Val(x, x1, m); Val(y, y1, m);
   c:= x1 - y1; d:= x1 + y1;
   Str(c, S); Str(d, S1);
   n := 0; k:=0;
   for j:= 1 to 50 do
       if a[j] = S then
          n:= n + 1;
   for j:= 1 to 50 do
       if a[j] = S1 then
          k:= k + 1;
   WriteLn(f); // столько раз встречается число х
   WriteLn(g);// столько раз встречается число у
   WriteLn(n);// столько раз встречается число (х - у)
   WriteLn(k);// столько раз встречается число (х + у)
end.

Код очень корявый, но я думаю, что вы сможете сами подправить все

[Loreena.J]

Raolin, условия первой задачи я не поняла. Объясните поподробнее.

[Raolin]

Пример: n=4, m=3. Тогда результат: !!!*

[Raolin]

Если будет время и желание, то сделай плиз еще:
Составьте программу, которая выводит ряд из n чисел вида 2,4,6,...,2n через запятую,где n задается с клавиатуры. Например: при n=5 ответ 2,4,6,8,10

Спасибо

[Serge_Bliznykov]

Пример: n=4, m=3. Тогда результат: !!!*

что у Вас не вяжется, а где же здесь N знаков "*" ?
может так должно получится?
****!!!

[Loreena.J]

Сообщение от Raolin

Если будет время и желание, то сделай плиз еще:
Составьте программу, которая выводит ряд из n чисел вида 2,4,6,...,2n через запятую,где n задается с клавиатуры. Например: при n=5 ответ 2,4,6,8,10

Спасибо

Хм...

Сообщение от Raolin

Если будет время и желание

У меня-то и время и желание будут, но, очень жаль, что у Вас нет ни того, ни другого. Я-то напишу вам эту программу, но что вы дальше делать-то будете? Уже вроде пора самому учиться писать. Кстати, задачки элементарные! Вооружившись учебником по паскалю, для начинающих, Вы, без проблем, смогли-бы, где-то за часика 1.5 , сами написать эти программы.