Найти сумму двухзначных чисел, в которых есть цифры, меньше заданной. - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/6:

@aPalaxc 0 / 0 / 0 Регистрация: 07.10.2020 Сообщений: 1

	Найти сумму двухзначных чисел, в которых есть цифры, меньше заданной. 07.10.2020, 22:04. Показов 1364. Ответов 1 Метки нет (Все метки) Найти сумму двухзначных чисел,в которых есть цифры,меньше заданной. 0

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

07.10.2020, 22:04

Ответы с готовыми решениями:

Найти сумму двухзначных десятичных чисел, в которых есть цифры, меньше заданной используя while
Найти сумму двухзначных чисел, в которых есть цифры, меньше заданной

Найти сумму всех трехзначных чисел, в записи которых есть четные цифры
5)написать программу находящую сумму всех трехзначных чисел, в записи которых есть четные цифры

Среди двухзначных чисел найти сумму квадратов цифр которых делится на 13
среди двухзначных чисел найти сумму квадратов цифр которых делится на 13

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

08.10.2020, 08:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var c,i,s:integer;
begin
repeat
write('Введите цифру от 1 до 9 c=');
readln(c);
until c in [1..9];
s:=0;
for i:=10 to 99 do
if(i div 10<c)or(i mod 10<c) then
 begin
  write(i:4);
  s:=s+i;
 end;
writeln;
write('s=',s);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

08.10.2020, 08:00

Помогаю со студенческими работами здесь

Найти и вывести на экран сумму всех двухзначных чисел, у которых первая цифра больше второй
Дан массив А(15), состоящий из двухзначных цифр. Найти и вывести на экран сумму всех двухзначных чисел, у которых первая цифра больше...

Нахождение всех двухзначных чисел, в которых есть цифра, неравная N
выручайте,пожалуйста!!! 1) Решить задачу нахождения всех двухзначных чисел,в которых есть цифра, неравная N и само число не делиться...

В массиве X найти сумму наибольшего количества чисел, произведение которых меньше M
ребята помогите с задачей В массиве X целых чисел найти сумму наибольшего количества чисел, произведение которых меньше M (ввести с...

Найти сумму чётных чисел в заданном диапазоне, у которых сумма цифр меньше 12
Напишите программу, которая запрашивает числа A и B (A<B), и находит сумму только чётных двузначных чисел в диапазоне от A до B...

Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа
Определить сумму двухзначных чисел, сумма цифр которых больше заданного числа. Решил через For. program lab6_2; var...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

Наверх