1.
<span>var i:integer;
begin
for i:=10 to 99 do writeln(i);
end<span>.
Результат:
10
11
12
...
98
99
2.
var i:integer;
begin
for i:=10 to 99 do
if i mod 10=5 then writeln(i);
end.
Результат:
15
25
...
95
3.
var i:integer;
begin
for i:=1 to 15 do
write(random(21)+10,' ');
end.
Пример:
<span>25 19 12 11 25 27 30 19 21 19 15 10 14 22 22</span></span></span>
Мощность алфавита это сколько символов в алфавите
для объёма надо знать вес одного символа и количество. но мы уже знаем количество так что нам надо только вес но мы можем узнать за счёт алфавита
19 не может быть возведён в двоичную степень так что делаем так
19=2^(4+1)
1 добавляем чтобы округлить
вес равен 5
теперь объем
5*60=300 бит
нам не говорили переводить в байт так что вот ответ
Точно не знаю, но мне кажется, что так:
1-г
2-а
3-в
4-б
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>