Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
Atlan

Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры

26.12.2010, 23:03. Показов 2009. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1.Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.
2. Найти сумму всех n-значных чисел (1 < п < 5).
3. Найти все простые натуральные числа, не превосходящие n, двоичная запись которых представляет собой палиндром, т.е. читается одинаково слева направо и справа налево.
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.12.2010, 23:03
Ответы с готовыми решениями:

Для N целых чисел, которые вводятся с клавиатуры, определить сумму и кол-во положительных чисел, которые делятся на 6 без остатка
Наро плизз вот такие задачки: 1. Для N целыых чисел, которые вводятся с клавиатуры, определить сумму и кол-во положительных чисел,...

Найти сумму квадратов всех целых чисел от а до b (значения а и b вводятся с клавиатуры; b > а)
Найти сумму квадратов всех целых чисел от а до b (значения а и b вводятся с клавиатуры; b &gt; а).

вычислить сумму ряда, х и точность вводятся с клавиатуры
Дано действительное число х. Hе используя стандаpтные функции (за исключением abs), вычислить сумму следующего pяда с заданной точностью ...

1
19 / 19 / 9
Регистрация: 15.12.2010
Сообщений: 120
27.12.2010, 08:33
Лучший ответ Сообщение было отмечено как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Program Ci;
Var
i,n : integer;
S:longint;
 
Begin
s:= 0;
WriteLn('Vvedite kolichestvo razryadov (ot 1 do 5)');
ReadLn(n);
      case n of
      1: begin
           for i:=1 to 9 do s:=s+i;
           WriteLn('Summa = ',s);
         end;
      2: begin
           for i:=10 to 99 do s:=s+i;
           WriteLn('Summa = ',s);
         end;
      3: begin
           for i:=100 to 999 do s:=s+i;
           WriteLn('Summa = ',s);
           end;
      4: begin
           for i:=1000 to 9999 do s:=s+i;
           WriteLn('Summa = ',s);
         end;
      5: begin
           for i:=10000 to 99999 do s:=s+i;
           WriteLn('Summa = ',s);
         end;
      else WriteLn('Nevernye dannye!');
      end;
ReadLn;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.12.2010, 08:33
Помогаю со студенческими работами здесь

Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.
Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.

Вычислить сумму кодов всех символов, которые в цикле
Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия на клавишу Esc.

Вычислить сумму кодов всех символов, которые в цикле читаются из файла. Результат записать в выходной файл
как сделать цикл? с getc и putc. не знаю как правильно написать. FILE *one,*two; char n; ...

С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5 (цикл с предусловием)
С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5. Использовать цикл с предусловием.

Найти сумму кодов всех символов, вводимых с клавиатуры, до нажатия Esc
Вычислить сумму кодов всех символов, которые в цикле вводятся с клавиатуры до нажатия клавиши Esc. Помогите пожалуйста!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru