2400*256:150=4096пикселей
В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=('ЗНАЧИТ', 'ВОТ', 'АВТОМОБИЛЬ');
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
s1:=' '+s1+' ';
l:=length(s2);
k:=0;
p:=pos(s2,s1);
while p>0 do
begin
if (s1[p-1]=' ')and(s1[p+l]=' ') then k:=k+1;
delete(s1,1,p+l);
p:=pos(s2,s1);
end;
end;
begin
writeln('Введите текст:');
readln(s);
for i:=1 to m do
begin
pr(s,sl[i],n[i]);
writeln(sl[i],' - ',n[i]);
end;
end.
Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3
Ответ:
var i : integer;
Begin
i := 11;
while i>=4 do begin
writeln(i*i*i);
i := i-1;
end;
end.
Объяснение: Можно и без dawnto.
1) Пятеричная система счисления - 5 пальцев на руке
2) Десятичная система счисления - 10 пальцев на двух руках
3) Двенадцатеричная система счисления:
- на каждом пальце у человека три части - фаланги. Для счета использовали только четыре пальца, значит 12 частей. Исключение составляет только большой палец - у него одна косточка, две части и его использовали для фиксирования пальцев при расчетах
- время, которое влияет на жизнь человека ( количество часов в сутках, количество месяцев было определено еще в древнем мире)
4) Двадцатеричная система счисления:
- количество пальцев у человека на руках и ногах
или
- количество косточек на двух руках пальцев - на каждом пальце у человека 2 косточки для сгиба пальца, т.е. на одной руке 10 косточек - большой палец сгиб у основания + 1 косточка фаланг