Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Katya08777
01.03.2020 20:23 •
Информатика
Найти сумму двухзначных чисел в которых цифра единиц больше десятков.(паскаль)
Показать ответ
Ответ:
SKYScraRPharaon
23.07.2020 08:23
Var i,sum,des,ed:integer;
begin
sum:=0;
for i:=10 to 99 do
begin
des:=i div 10;
ed:=i mod 10;
if(des<ed) then sum:=sum+i;
end;
writeln("summa = ",sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
England1111
15.03.2020 13:00
Может ли исполнитель алгоритмов грис стрелочка нарисовать: прямоугольник, треугольник, пятиконечную звезду, буквы «н», «х», «р», «м»? продемонстрируйте три варианта...
vanila16
16.02.2020 23:02
Для десяти выстрелов, координаты которых с клавиатуры, вывести текстовые сообщения о попадании в мишень, графическое представление которой дано на рисунке. нужно...
erteeq
05.12.2021 12:54
Измеряется в байтах (кб, мб), зависит от глубины цвета, избранной цветовой модели кодировки, разрешающей для растрового изображения и сложности графических примитивов...
katwyn
14.09.2022 20:24
запишите число в свёрнутой форме: а) 1 x 2^3 + 1 = б) 1 x 3^8 + 2 x 3^5 + 1 x 3^2 + 2 =...
snoxj2003
02.12.2022 05:58
это вопрос не школьный но10 чем заменить клавишу fn если ее...
ruskei
21.05.2023 07:51
Необходимо объединить компьютеры в многоквартирном доме с несколькими .ответьте на след.вопросы: 1)вид компьютерной сети по территориальной распространенности 2)вид...
alina20067
13.01.2022 22:15
Сделать калькулятор в командной строке через choice ...
Анастасия20041981
06.06.2021 07:18
Из посёлка в город выехал мотоциклист со скоростью 15 км\ч в тоже время выехал ему навстречу велосипедист со скоростью 6 км\ч,они встретились через два часа.составьте...
anastasiamartyn
24.06.2020 22:27
Водной из кодировок unicode каждый символ кодируется 16 битами. определите размер следующего предложения в данной кодировке: роняет лес багряный свой убор, сребрит...
dimam20041
04.09.2021 11:46
Информатика 5А сынып 4 токсан комектесындер бал берем...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
sum:=0;
for i:=10 to 99 do
begin
des:=i div 10;
ed:=i mod 10;
if(des<ed) then sum:=sum+i;
end;
writeln("summa = ",sum);
end.