Ответ:
1.
8Кбайт=8192байт=65536бит
3Кбайт=3072байт=24576бит
4Кбайт=4096байт=32768бит
2,5Гбайт=2560Мбайт=2^18*10Кбит
В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
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
1 вышел из дома в 8:00
2 8метров
3 1. остановка в 8:05
2. остановка в 8:10
3. остановка 8:12
4. остановка в 8:14
4 прибыл в 8:20
Упростим выражение.
Дизъюнкция ложна тогда, когда ложен каждый её элемент.
Поэтому логические переменные должны иметь значения:
a=ложно, b=истинно, d=ложно.
Вступление:
1) trunc- получает целое из числа
2) round - округляет до ближайшего целого(банковское округление, если число стоит посредине между двумя целыми 2.5=2; 3.5=4, то есть до ближайшего четного)
3) a div b - делит a/b и возвращает целую часть
4) a mod b - делит a/b и возвращает остаток
5) sin - синус числа
Теперь к заданиям:
trunc(6.9)=6
trunc(6.2)=6
20 div 6=3
2 div 5=0
round(6.9)=7
round(6.2)=6
20 mod 6=2
2 mod 5=2
3*7 div 2 mod 7/3-trunc(sin(1))=1
1)3*7=21
2)21 div 2=10
3)10 mod 7=3
4)3/3=1
5)sin(1)=0,с мелочью
6)trunc(0,...)=0
7)1-0=1
