uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
1) ты не можешь копировать/распространять что-либо без согласия автора
2)
Использование его музыки/фильма и т.д в личных целях
3)
Поагиат-копирование материла (сделал он отправил я)
Итак, нужно 1000000 вариантов, 4 цифры есть, это 10000 вариантов(0000 тоже возможно)
необходимо увеличить до 1000000 вариантов, для этого необходимо в 100 раз или больше увеличить. одна буква увеличит в 5 раз, две буквы в 25, 3 буквы в 125, ответ 3 буквы(5*5*5) и будет доступно 1250000 вариантов, что на 250000 больше необходимого