У Вовы на флешке есть несколько файлов. Можешь определить, к какому типу относится каждый из них? Архив для отправки по электронной почте а) .jpg

Презентация к докладу по информатике б) .mp3

Фото кота Вовы в) .docx

Небольшая программа г) .zip

Любимая песня д) .exe

Текст доклада по информатике е) .pptx

Йдйдйдйдкдеккеклслслслс

Архив по отправке по почте - г)

Презентация - е)

Фото - а)

Программа - д)

Песня- б)

Текст - в)

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

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.