// 2)
var
    a: integer;
    m: array[0..9] of integer;

begin
    read(a);
    while a > 0 do
    begin
        m[a mod 10] := m[a mod 10] + 1;
        if m[a mod 10] >= 2 then begin
            write('Есть');
            break;
        end;
        a := a div 10;
    end;
    if a = 0 then write('Нет');
end.

1)
var
    a, s, i: integer;

begin
    read(a);
    s := 0;
    while a > 0 do
    begin
        s := s + a mod 10;
        a := a div 10;
    end;
    write(s);
end.

0 0

4 года назад

Карлсон і Малюк подарували фрекен Бок на день народження 22 диски з компютерними іграми. Карлсон подарував стільки ж дисків,скіл

Zbrrswe

30 дисков подорил малыш

0 0

4 года назад

Ребята помогите!!!!!!! переведите в десятичную систему числения след числа . Пожалуйста

ЛюбовьВл [21]

1AB.DB = 427.85546875

712,54 = 458.6875

111101,011 = 61.375

0 0

4 года назад

Помогите пожалуйста решить любую задачу по информатике

s0fia

1)6,25(800:128)
2)96(6*1.25)
3)1,6(40*50*10:12500)

0 0

4 года назад