Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЛюАниме
29.06.2020 20:19 •
Информатика
Подсчитать сумму двузначных чисел, сумма цифр которых не превышает 10. program pr10; var n, a, b, k: integer; begin k: =0; for n: =10 to 99 do begin a: = n div 10; b: =n mod 10 начало в pascal
Показать ответ
Ответ:
rous59
15.07.2020 20:23
Program Pr10;
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lolSashalolo
10.03.2020 03:44
Что можно отнести к достоинствам векторной графики по сравнению с растровой: 1 малый объем графических файлов 2 фотографическое качество изображения 3 возможность...
Милана3091
21.10.2020 10:12
Напишите код программы, чтобы создать окно размером 600 х 800 и покрасить его в зеленый цвет...
kir1kir1
12.06.2020 12:35
с решением задачи Дано натуральное число сколько внёс цыфр которые не равны последней У меня вот что получилось:int num, kol;cin num;num = num % 10;if (num == 0)...
настасимммаа
16.06.2021 04:37
Наименьшей структурной единицей внутри таблицы является.. строка ячейка столбец диапазон ячейка не может содержать данные в виде… текста формулы числа картинки...
Masha8157
24.09.2021 20:11
На сколько процентов 9 больше, чем 5...
мейрбек2
24.09.2021 20:11
На сколько процентов 5 меньше, чем 9...
Beaargleb
24.09.2021 20:11
Записать условие к : с одной пасеки собрали 36 кг меда, с другой 27 кг. мед разлили в бидоны по 7 кг в каждый, сколько понадобилось бидонов? решение знаю, условие...
mangleplaydj1
24.09.2021 20:11
При некоторых температуре и давлении в сосуде вместимостью 0,5л находится 0,03моль оксида азота (iv). вычислите coust скорости прямой реакции 2no2(г.)↔n2o4( если...
pointbreakk9
24.09.2021 20:11
Напишите уравнения реакций в молекулярной и ионной формах, можно осуществить следующие превращения: ca-ca(oh2)-cacl2-ca(no3)2-caso4...
flagmarta
24.09.2021 20:11
Найти tgx если sinx=-2/корень из 5 .180...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, j, s: integer;
begin
s := 0;
for i := 1 to 9 do
for j := 0 to 9 do
if (i + j <= 10) then
inc(s, i * 10 + j);
writeln(s);
end.