М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
softani1105
softani1105
07.09.2021 09:45 •  Информатика

Определите, сколько в строке символов, которые встречаются только 1 раз? язык программирования pascal abc.net

👇
Ответ:
albinanizaeva
albinanizaeva
07.09.2021
var c: integer; b: boolean; begin b := true; var s := readstring(); for var i := 1 to s.Length do begin for var j := 1 to s.Length do begin if (s[i] = s[j]) and (i <> j) then begin b := false;break; end else end; if (b = true) then c := c + 1; b := true; end; write(c); end.
4,8(72 оценок)
Открыть все ответы
Ответ:
Disna2006
Disna2006
07.09.2021
Поставьте номера вопросам!
1. Компьютерная графика
2. Не знаю) Что-нибудь для перфолент и перфокарт?
3. Деловая графика.
4. 3D графика, 3 d технология вообще
5. Разрешающая монитора
6. Пиксел, точка
7. Мониторы на лучевой трубке и жидкокристаллические
8. Если в изображении использовалось N цветов, тогда количество бит для сохранения 1 точки нужно N <= 2 в степени i. При этом i должно быть минимальным. То есть если в изображении 70 цветов, то ближайшие i это 6 и 7 (2 в 6 степени 64, 2 в 7ой 128), в данной ситуации i = 7 бит, потому что 6 бит не хватит закодировать 70 цветов (только 64)
9. 1.количество точек к= 1024*768 = 786432 точки, 256 цветов, значит вес одной точки = 8 бит = 1 байт, итого 1 кадр = 786432 * 1 байт, 2 кадра = 2* 786432 байта = 192 Кб
9. 2. точек не изменилось: 786432, одна точка = 24 бита, значит вес 1 точки увеличился в 3 раза, значит и размер всех 2 кадров увеличится в 3 раза 
4,6(39 оценок)
Ответ:
Diankamilanka2005
Diankamilanka2005
07.09.2021
Программа точно по условию:

Var A,d,S:integer;
Begin
Write('Искомые числа:');
For A:= 300 to 600 do
    Begin
    S:=A+1;
    d:=A div 2;
    While d>1 do
       Begin
       if A mod d = 0 then S:=S+d;
       d:=d-1
       End;
    if S = 50 then Write(' ',A);
    End
End.

Программа, разумеется, не выдаст ни одного числа, т.к. каждое число делится на себя и на единицу. То есть сумма делителей всегда будет больше 301.

Если не брать в расчёт само число и единицу, то программа будет выглядеть так:

Var A,d,S:integer;
Begin
Write('Искомые числа:');
For A:= 300 to 600 do
    Begin
    S:=0;
    d:=A div 2;
    While d>1 do
       Begin
       if A mod d = 0 then S:=S+d;
       d:=d-1
       End;
    if S = 50 then Write(' ',A);
    End
End.

Результат работы программы:

Искомые числа: 301 481 589
4,8(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ