Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
vika200920001
26.06.2020 01:28 •
Информатика
Найти значение всех двузначных чисел от 10 до 99
Ответ:
Валера505
08.10.2020 19:03
Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Lubafili2017
21.04.2022 12:49
Солнышко в чертежнике алгоритм...
sergey1234567890f
04.07.2022 21:55
N = 1 s = 5 while (n 61): n += 12 s += 2 print(s)...
Амаpил1768
08.10.2020 20:56
S = 0 k = 0 while (k 15): k += 1 s += k...
Вейпер228
28.03.2022 08:56
Сократите дробь а) 5-а в квадрате/v5-a хеелп...
luizalol
02.08.2022 18:06
Розвяжить неривнисть 3х-1≤2-5(х-1)...
njjjjjjtgl
06.02.2023 05:24
Примеры античных и современных софизмом...
dariamaniakova
02.08.2022 18:06
комектесинши керек Копмушени косып орнекти ыкшамда...
alaska122
14.04.2023 01:23
Как называется негативная (позитивная) информация о пользователе?...
olyaperminova
06.02.2023 05:24
Сор по английскому языку 4 класс...
арина1138
14.04.2023 01:23
3. Обозначьте краткие прилагательные и наречия и подчеркните их как члены предложения.(8 - 0,5 = 4 п.)Море спокойно. Море спокойно сияло голубым светом. Он прекрасно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.