Windows movie maker - это мультимедийный процессор ?

Программа для создания/редактирования видео

у вас дано несколько чисел введённых с клавиаатуры или генерацией(random)вы проверяете 1)трёхзначность (a> 99) and (a< 1000)

                                                          2)оканчивается ли трёхзначное число тройкой (a mod 10=3)

if (a> 99) and (a< 1000) and (a mod 10=3)

 

естественно проверка делается в цикле.

 

нужно было указать в условии как вводятся числа (a), сколько их

или числа вводятся в массив

1) var sum, number, n: integer; begin   sum : = 0;   number : = 1;   write('введите n: ');   readln(n);   while (number < = n) do   begin     sum : = sum + number;     number : = number + 2;   end;   write('сумма равна ', sum); end. 2) var prod, number, n: integer; begin   prod: = 1;   number : = 3;   write('введите n:   ');   readln(n);   while (number < = n) do   begin     prod : = prod *  number;     number : = number + 3;   end;   write('произведение равно  ', prod); end. 3) var number, n: integer; begin   number : = 1;   write('введите n:   ');   readln(n);   writeln('таблица: ');   while (number < = n) do   begin     writeln(number: 5, number*number: 5, number*number*number: 5);     number : = number + 1;   end; end.