Var i:integer;
begin
for i:=100 to 999 do
if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)
then writeln (i);
end.
1)
var s,a,b: string; i,p: byte;
begin
s:='Снег лежит на земле';
writeln('Было:');
writeln(s);
a:='на земле';
b:='повсюду';
p:=Pos(a,s);
delete(s,p,length(a));
insert(b,s,p);
writeln('Стало:');
writeln(s);
end.
-----------------------------------
Было:
Снег лежит на земле.
Стало:
Снег лежит повсюду.
-----------------------------------
2)
var s: string;
begin
writeln('Введите слово:');
readln (s);
if length(s)>5 then writeln ('Верно') else writeln ('Не верно');
end.
------------------------------------
Введите слово:
ученик
Верно
------------------------------------
3)
var s: string; i,k: byte;
begin
writeln('Введите слово:');
readln (s);
k:=length(s);
for i:=1 to k do
s:=s+'+';
writeln (s)
end.
-------------------------------------
Введите слово:
море
море++++
-------------------------------------
{Я не до конца понимаю роль переменной n в данной задаче. Если задать большое значение данной переменной, программа вернёт NaN}
//Pascal ABC.NET v3.1 сборка 1172
Var
x,r:real;
n,i,k:integer;
function fact(n:integer):real;
Var
i,k:integer;
begin
k:=1;
for i:=1 to n do
k:=k*i;
fact:=k;
end;
begin
readln(x);
readln(n);
k:=1;
r:=0;
for i:=1 to n do
begin;
if odd(i) then
r:=r+power(x,k)/fact(k)
else
r:=r-power(x,k)/fact(k);
k:=k+2;
end;
writeln(r);
end.
<span>Пример ввода:
</span>
1
10
<span>Пример вывода:
0.841470972080175</span>
Вот на примере этого можно много чего составить, не знаю скрлько тебе задач сделать надо но вот:
Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
