Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
pn89290448853
02.09.2019 21:50 •
Информатика
Сколько существуют двузначных чисел сумма цифр которых = 7 .запишите на языке программирования
Показать ответ
Ответ:
2017МегаМозг2017
06.10.2020 13:18
Var n,i,i1,i2:integer;
Begin
for i:= 10 to 99 do Begin
i1:=i div 10;
i2:=i mod 10;
if (i1+i2=7)then n:=n+1;
end;
writeln(n);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
iwaly2009
29.05.2019 10:10
Составить программу вычисления длины окружности и площади p=5,4 , надо....
morni228
29.05.2019 10:10
Для записи текста использовался 64-символьный алфавит .какой объем информации в байтах содержат 10 страниц текста ,если на каждой странице расположено 32 строки по 64 символа...
rous59
16.12.2021 21:49
Заполните таблицу в каждой строке которой одно и тоже число должно быть записано в системах счислени...
natik045
17.01.2021 17:20
6. Электрондық кестеде санды енгізу үшін қандай формат қолда-нылады?...
voldemarsoybzwx
17.01.2021 17:20
Как соеденить 2 абзаца в один? ...
cherryybommb
17.01.2021 17:18
Заполнить и вывести массив из 7чисел, так чтобы значения элементов массива - совпадали с их индексами (Паскаль)...
david2005317
28.08.2019 09:20
Упятачка была большая коллекция воздушных шариков разных цветов. m воздушных шариков содержали красный цвет, n – зелёный и k – синий. при этом из них a шариков содержали и...
alekss84
13.12.2019 11:59
Решить линейное уравнение по информатике алгоритмы) 1. ax+b 02.ax^2+b=03.ax^2+bx+c=0...
vovadj17
13.12.2019 12:03
1.расширение указывает на : а)местонахождение файла во внешней памяти ; б)тип информации в файле ; в) время последнего редактирования файла...
20Bella04
13.12.2019 12:11
Розподіліть подані слова на власне українські та іншомовні ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
Begin
for i:= 10 to 99 do Begin
i1:=i div 10;
i2:=i mod 10;
if (i1+i2=7)then n:=n+1;
end;
writeln(n);
End.