Алгоритм приготовки чая
1)взять чайник
2)открыть крышку чайника
3)открыть кран
4)налить воду в чайник
5)закрыть кран
6)закрыть крышку чайника
7)поставить чайник на место
8)включить чайник
9)взять кружку
10)поставить на стол
11)взять пакетик с заваркой
12)положить пакетик в кружку1
3)взять чайник,когда он выключится
14)налить кипяток в кружку
15)поставить чайник на место
16)взять сахар
17)взять ложку
18)насыпать сахар в чай
19)размешать чай
<span>ГОТОВО!</span>
1)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
else writeln('В строке нет буквы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
writeln('Строка после удаления букв(ы) "и": ', s);
end.
1.
Дано:
K = 800*600 = 480000
q = 14400 бит/с = 1800 байт/с
N = 16 777 216
Найти:
t - ?
Решение:
i = log₂N
i = log₂16 777 216 = 24 бит = 3 байта
V = K * i = 480000 * 3 байта = 1 440 000 байт
V = q * t
t = V / q
t = 1 440 000 байт : 1800 байт/c = 800 с ≈ 13, 3 мин
Ответ: 13, 3 мин
2.
Дано:
N = 16
K = 640*400 = 256 000
Vизобр. = 1250 Кбайт
Найти:
Решение:
Vстр. = K * i
i = log₂N
i = log₂16 = 4 бита
Vстр. = 256 000 * 4 бита = 1 024 000 бит / 8 = 128 000 байт = 125 Кбайт
Кол-во страниц = Vизобр. / Vстр.
Кол-во страниц = 1250 Кбайт : 125 Кбайт = 10
Ответ: 10 страниц
<span>Истина-Ложь
Не все люди носят очки-Все люди носят очки
Иногда летом идёт дождь-Летом всегда идёт дождь
Все рыбы умеют плавать-Рыбы не умеют плавать.
</span>
2)var a, b:integer;
begin
writeln('Введите 2 числа');
readln(a, b);
if a<b then writeln('min=', a)
else writeln('min=', b);
readln;
end.