ПРОЦЕС - всего в алфавите 6 букв
На первое место есть 6 вариантов, на второе 5 (все буквы, кроме первой), на третье 5, на четвёртое 5.
Всего вариантов: 6 * 5 * 5 * 5 = 750
1)Запрос информации-обрабатывается
2)Движение мышки на экран-передаётся
3)Вид фаила (jpg и т.д.) когда мы его сохраняем-сохраняется
var
a, max, i: integer;
begin
repeat
readln(a);
if(a > max) and (a mod 2 = 0) then max := a;
inc(i);
until(i = 6);
writeln('Макс. четное число: ', max);
end.
Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.