нужно ребёнку по информатике

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

с компьютера можно редактировать фотографии, создавать тексты, пользоваться интернетом, создавать графические изображения,

делать видео монтаж и.т.д.

  если использовать компьютер не по назначению или скачивать с интернета файлы опасные для компьютера может быть компьютерный вирус. чтобы не было вируса можно приобрести антивирус или вообще не скачивать что попало.

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

954-459=495