Ответы
Ответ дал:
0
1) var
n, i: longint;
begin
readln(n);
for i := 1 to n do
write('+ ');
end.
2) var
n, i: longint;
sum: real;
begin
readln(n);
sum := 0;
for i := 1 to n do
sum := sum + 1/i;
writeln('Сумма ряда - ' + sum);
end.
3) var
n, kolvo, n2: longint;
a, m: byte;
begin
readln(n, m);
n2 := n;
kolvo := 0;
while (n2 <> 0) do begin
a := n2 mod 10;
n2 := n2 div 10;
if (a = m) then
inc(kolvo);
end;
if (kolvo = 0) then
writeln('В числе N не содержится цифра M')
else
writeln(kolvo);
end.
4) var
n: string;
i: longint;
begin
readln(n);
for i := length(n) downto 1 do
write(n[i]);
end.
n, i: longint;
begin
readln(n);
for i := 1 to n do
write('+ ');
end.
2) var
n, i: longint;
sum: real;
begin
readln(n);
sum := 0;
for i := 1 to n do
sum := sum + 1/i;
writeln('Сумма ряда - ' + sum);
end.
3) var
n, kolvo, n2: longint;
a, m: byte;
begin
readln(n, m);
n2 := n;
kolvo := 0;
while (n2 <> 0) do begin
a := n2 mod 10;
n2 := n2 div 10;
if (a = m) then
inc(kolvo);
end;
if (kolvo = 0) then
writeln('В числе N не содержится цифра M')
else
writeln(kolvo);
end.
4) var
n: string;
i: longint;
begin
readln(n);
for i := length(n) downto 1 do
write(n[i]);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад