341 123 222 111 если это одно число, то ответ 5 так как в 5 системе счисления присутствуют числа 01234
если это разные число то
341 ответ 5
123 ответ 4
222 ответ 3
111 ответ 2
Var
i,m,n,s:integer;
function fact(a:integer):integer;
var l:integer;
begin
l:=1;
for i:=2 to a do
l:=l*i;
fact:=l;
end;
begin
read(m);
readln(n);
s:=0;
for i:=m to n do
if i mod 2=0
then s:=fact(i)+s;
writeln('Suma: ',s);
end.
1 Офис ворд
2- 3
3) 3
4) процесс <span> придания </span>текст у <span>определенного вида, связанный с определением левой и правой границ </span>текста<span>, абзацного отступа и </span>
Program n1;
var x,y: real;
begin
readln(x,y);
if y=3*x-2 then write('лежит')
else write('не лежит');
end.