Var
a : array ['a'..'z'] of integer;
c : char;

begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>

0 0

3 года назад

Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиа

qet135wr245 [7]

Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.

0 0

4 года назад

Задать площадь круга случайным образом (от 10 до 20). Найти его диаметр D и длину окружности L, ограничивающей этот круг, учитыв

Праздник

Var D,L,R,S:real;
Const Pi=3.14;
Begin
randomize();
S:=random(11)+10;
R:=sqrt( S/Pi );
L:=Pi*2*R;
D:=L/Pi;
Writeln('L = ',L);
Writeln('D = ',D)
<span>End.</span>

0 0

4 года назад

1. Получить двоичную форму внутреннего представления целого числа в 2-х байтовой ячейке. (число 1431) 2.Группа школьников пришла

zavadim

1)
1431_10 = 10110010111_2
всего простаранства у нас 2 байта = 8*2 = 16 бит. Дописываем нули
0000 0101 1001 0111

2)
Всего возможных 8 чисел.
i = log_2 (8) = 3 бита нужно для кодирования одного числа, т.е. полученная информация равна 3 битам

0 0

4 года назад