Var s: string; i, count: integer;
begin
write('Введите текст: '); readln(s);
for i := 1 to length(s) do
if(s[i] <> ' ') then inc(count);
writeln('Кол-во символов: ', count);
<span>end.</span>
Для того, чтобы определить размер данного предложения нужно подсчитать количество символов в предложении. Оно состоит из 38 символов. Каждый символ кодируется 16 битами или 2 байтами. Исходя из этого:
1. 38 * 2 = 76 байт;
2. 76 * 8 = 608 бит.
Размер данного предложения 76 байт или 608 бит.
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
На улице не тепло,у всех зонтики и дождевики и все тело покрыто водой.
1. Половина детей любит пирожное 52/2=26
2. Мы знаем, что 20 детей любит либо пирожное, либо пирожное и мороженое. Прибавим их к тем кто любит только пирожное 20+26=46
3. Оталось из всего количества детей вычесть полученный результат 52-46=6
<span>Ответ: 6 - детей любит мороженое</span>