Алгоритм:
Найти 1й элемент строки и записать его в поле i,j ,затем сравнивать все последующие значения той строки с этой переменной.
В десятичной системе; в пятеричной системе
0-0
1-1 5^0=вес 1
2-2
3-3
4-4
5-10 цифра 0 имеет вес 1 цифра 1 имеет вес 5 (5^1) "5"-основание системы
6-11 цифра 1(правая) имеет вес 1(5^0=1), цифра 1(левая) имеет вес 5(5^1=5)
7-12 цифра 2 имеет вес 1(5^0=1), цифра 1 имеет вес 5(5^1=5)
8-13 3==1(вес) , 8===5(вес)
9-14
10-20 0 имеет вес 1(5^0=1), 2 имеет вес 5(5^1=5)
11-21
12-22
13-23
14-24
15-30
16-31
17-32 2===1, 3====5
18-33 3===1,3====5
19-34 4===1,3====5 в остальных случая аналогично
20-40
Const
n = 30;
var
fin, fout: Text;
s: string;
begin
Assign(fin, 'input.txt');
Reset(fin);
Assign(fout, 'output.txt');
Rewrite(fout);
while not eof(fin) do
begin
readln(fin, s);
if length(s) > n then writeln(fout, s)
end;
Close(fin);
Close(fout)
end.
Ответ:
var a:integer;
function Name1(a:integer):integer;
var i,c: integer;
begin
i:=0;
c:=2;
while i < 1 do
begin
if c*c=a then
writeln('Число '+a+' является квадратом четного числа '+c);
if c*c<a then
c:=c+2
else
i:=1;
if c*c>a then begin
writeln('Число '+a+' не является квадратом четных чисел');
i:=1;
end;
end;
end;
begin
writeln('Введите число:');
readln(a);
Name1(a);
end.
Объяснение:
Var
x, y, z: Integer, c: Boolean;
Begin
Read (x, y);
z:= x+y;
if (x>5) or (z<10) then
с:= true;
else
c:= false;
Это то что ты хотел?