var s: array[1..100] of string;
i, _tvoi_schetchick_: integer;
a: string;
begin
_tvoi_schetchick_:= 0;
readln(a);
if a <> 'END' then
repeat
if a <> 'END' then begin
inc(_tvoi_schetchick_);
s[_tvoi_schetchick_]:= a;
readln(a);
end;
until a = 'END';
for i:= 1 to _tvoi_schetchick_ do writeln(s[i]);
end.
Ответ:
13
Объяснение:
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.
const
g = 1.5;
h = 20;
var
l : real;
k : integer;
begin
l:= 0;
k:= -1;
while l < h do begin
l:= l + g;
k:= k + 1;
end;
write(k);
end.
Python:
n=input("N=")
a=1
for x in xrange(1, n+1):
a*=x
<span>print a
Pascal:
program z1;
var
a, i: integer;
b:longint;
begin
readln(a);
b:=1;
for i:=1 to a do
b:=b*i;
writeln('b=', b);
<span> end.</span></span>
N = 28
K = 28
I = ?
Решение:
N = 2^i
28 = 2^i
i = 5 бит (ближайшая степень после числа 28)
I = K * i
I = 28 * 5 = 140 бит