Uses Crt; Var a,b,i,tek,sum10,sum3:integer; Procedure TroichSS (te:integer; var sum3:integer); var m:array[1..10]of integer; k,j,su3:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 3; te:=te div 3; until te<3; inc(k); m[k]:=te mod 3; for j:=k downto 1 do begin su3:=su3+m[j]; write(m[j]:3) end; write(' su3=',su3); sum3:=su3; su3:=0; k:=0; end; Procedure DesiatSS (te:integer; var sum10:integer); var m:array[1..10]of integer; k,j,su10:integer; begin write(te:4); repeat inc(k); m[k]:=te mod 10; te:=te div 10; until te<10; inc(k); m[k]:=te mod 10; for j:=k downto 1 do begin su10:=su10+m[j]; write(m[j]:3); end; writeln(' su10=',su10); sum10:=su10; su10:=0; k:=0; end; Begin //Задание интервала [a; b] a:=1; b:=1000; writeln('Интервале [a; b]',a:4,b:4); //Сумма цифр троичных и десятичных чисел for i:=a to b do begin TroichSS(i,sum3); DesiatSS(i,sum10); if sum3=sum10 then begin writeln('Э в р и к а!'); delay(5000); end; end; writeln('К о н е ц.'); End.
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
k,j,su3:integer;
begin
write(te:4);
repeat
inc(k); m[k]:=te mod 3; te:=te div 3;
until te<3;
inc(k); m[k]:=te mod 3;
for j:=k downto 1 do
begin su3:=su3+m[j]; write(m[j]:3) end;
write(' su3=',su3);
sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
k,j,su10:integer;
begin
write(te:4);
repeat
inc(k); m[k]:=te mod 10; te:=te div 10;
until te<10;
inc(k); m[k]:=te mod 10;
for j:=k downto 1 do
begin su10:=su10+m[j]; write(m[j]:3); end;
writeln(' su10=',su10);
sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
a:=1; b:=1000;
writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
for i:=a to b do
begin
TroichSS(i,sum3); DesiatSS(i,sum10);
if sum3=sum10 then
begin writeln('Э в р и к а!'); delay(5000); end;
end;
writeln('К о н е ц.');
End.
ответ: 39
const
n = 10; //количество элементов массива
var
a: array [1..n] of real;
i: integer;
begin
for i:= 1 to n do
begin
writeln('Введите ', i, ' элемент массива');
readln(a[i]); //вводим очередной элемент массива
end;
write('Исходный массив: ');
for i:= 1 to n do
write(a[i], ' '); //Выводим исходный массив
writeln; //Перевод на новую строку
write('Полученный массив: ');
for i:= 1 to n do
begin
a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент
write(a[i], ' '); //выводим полученный элемент массива
end;
end.