Формула: N = 
, где i = 3.
Подставляем: N = 
=> <u>N = 8</u>.
Program Stoimost;
var a,b,s,c :integer;
begin
writeln('Введите стоимость за минуту разговора ');
read(b );
writeln('Введите количество минут ');
read(s);
writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье, то введите цифру 2, а если в другие дни, то 0 ');
read(a);
if a:=1 then
c:= b*s*0,7;
if a:=2 then
c:=b*s*0,65;
if a:=2 then
c:=b*s;
write(c);
end.
скорее всего не правильно, но попробуй
<span>Способ кодирования информации с помощью того же алфавита ,что и исходный текст - я не знаю... не написано сколько всего букв
</span><span>Способ кодирования информации с помощью чисел - числовой;
</span>
Program p1;
var
a:array[1..7,1..7] of byte;
i,j:byte;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if i<=4 then
if (j>=i) and (j<=8-i) then a[i,j]:=1 else a[i,j]:=0
else
if (j<=i) and (j>=8-i) then a[i,j]:=1 else a[i,j]:=0;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 0
1 1 1 1 1 1 1
program p2;
var
a:array[1..6,1..6] of byte;
i,j:byte;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=i+j-1;
if a[i,j]>6 then a[i,j]:=a[i,j]-6;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5
Мальчик дарит девочке шарики. Тем самым он воздействует на девочку.
