DВот решение данной задачи на языке Pascal:
var
s:string;
k,n,i:longint;
begin
read(s);
k:=0;
n:=0;
for i:=1 to length(s) do
begin
if ord(s[i])=65 then k:=k+1;
if ord(s[i])=32 then
begin
if k=3 then n:=n+1;
k:=0;
end;
end;
writeln(n);
end.
В одном килобайте 1024 байт. В одном байте 8 бит. Итого
16 кбайт=16*1024*8бит=131072бит
Ответ: 131072 бит
Получается 27 ячеек в Excel. А проще берёшь Эксель, выделяешь нужную область и считаешь кол-во ячеек:) на фотке посмотри
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
Const n=10;
var ar:array[1..n] of integer;
a,p,i:integer;
begin
write('a = ');
readln(a);
write('p = ');
readln(p);
ar[1]:=a;
for i:=2 to n do ar[i]:=ar[i-1]+p;
for i:=1 to n do write(ar[i],' ');
end.
Пример:
a = 2
p = 5
2 7 12 17 22 27 32 37 42 47