Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Dimoo9n
05.10.2022 12:39 •
Информатика
Дз по информатике.
Нужно сложить сумму всех однозначных чисел.
Ответ:
LaSeine28
23.02.2021 01:00
var a,i,s: integer;
begin
for i:=0 to 9 do begin
a:=i;
s:=s+a;
inc(a);
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
denisbainazov
14.01.2022 17:55
Расположите в порядке убывания: 120 бит, 13 байт, 2кб, 0, 001 мб, 0, 0001 гб...
sagatsayazhan
05.12.2022 21:56
Как перевести из двоичной в десятичную число 11010,11001,10100,10111,10101...
krnshlpn
12.09.2020 13:44
Имеется калькулятор, который может выполнять только две команды: 1) прибавить 1; 2) умножить на 2. какое минимальное число команд потребуется, чтобы с этого калькулятора...
daryaaleksandr2
26.10.2022 17:45
Все с той же целью обучения бэймакса программированию хиро хамада разработал учебный язык программирования с+p. для простоты переменные в данном языке могут быть только...
sanya3202
29.05.2020 19:59
Из 5 предложенных уравнений прямых выберите 3 таких, что соответствующие прямые параллельны друг другу. 7x + 6y + 9 = 0 5x + 7y + 14 = 0 8x + 6y + 19 = 0 15x + 21y + 22...
pagan1977sanyap0apdo
27.06.2022 19:22
1- задан массив из n вещественных элементов. заменить каждый элемент, кроме первого, суммой предыдущих элементов. 2- задан массив из n вещественных элементов. найти минимальный...
LuzuVloks
02.01.2022 22:16
Выделите красным цветом ложные высказывания...
butera
23.11.2020 14:45
Информатика. Для производства вакцины на заводе выращивают одну из культур бактерий. Известно, что если масса бактерий x г, то через день она увеличивается на (a-b×x)×x...
Babikovandrei48
14.11.2020 17:51
Перевидите код с паскаля в пайтон const N=10; var a:Array[1..N] of integer; i,k,sum,c,b:integer; begin Randomize; k:=0; sum:=0; for i:=1 to N do begin a[i]:=random(61);...
madina2421
24.01.2023 05:12
Как написать дробь? ( одна целая ,1 шестая)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,i,s: integer;
begin
for i:=0 to 9 do begin
a:=i;
s:=s+a;
inc(a);
end;
writeln(s);
end.