Оптическое распознавание текста позволяет осуществлять поиск слова.
Ответ: осуществлять поиск слова. <span />
В одной букве, кажется, 8 бит .
13 букв = 8*13=104)
кажется так)
1.
Program suma;
Var a, b, sum, i:integer;
begin
read(a);
read(b);
for i:=a to b do sum:=sum+i;
write(sum);
end.
2.
Program multip;
Var a, b, m, i:integer;
begin
m:=1;
read(a);
read(b);
for i:=a to b do m:=m*i;
write(m);
end.
3.
Program suma2;
Var a:array [1..5] of integer;
i, sum:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
sum:=sum + a[i] * a[i];
write(sum);
end.
4.
Program cnt_nopos;
Var a:array [1..5] of integer;
i, cnt:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do
if a[i] < 0 then Inc(cnt);
write(cnt);
end.
5.
Var a:array [1..5] of integer;
i, max:integer;
begin
for i:=1 to 5 do read(a[i]);
max:=a[1];
for i:=1 to 5 do
if a[i] > max then
max:=a[i];
write(max);
end.
все просто делим с точностью до второго знака
100 : 1,39 = 71,94
округляем 71,94 = 72
Ответ: 72 дискеты
На бейсике: p=1
for i= 25 to 60 step 2
p=p*i
next
print p
на паскале: var i,p:integer;
for i:=25 to 60 do
if i mod 2 =1 then p:=p*i;
write(p);
end.