Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Татьяна06111
12.10.2022 04:14 •
Информатика
Вычислите сумму ряда 10, 100, 1000 на языке паскаль,
Ответ:
sevostyanova2002
02.10.2020 23:39
Var i,k,T,m:integer;
begin;
k:=0;
m:=1;
readln(T);
if T<0 then exit;
for i:=1 to T do
begin;
m:=m*10;
k:=k+m;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sabinabaigali
01.08.2022 21:59
Найдите значение переменной summa после выполнения следующей программы: i = 0 summa = 0 while i 8: summa += 2 ** i i += 1...
Dan2707
22.05.2023 17:03
(если можете, проверьте мой профиль, там аналогичные)...
Vadym19
13.04.2020 01:52
Вчем отличие этапов друг от друга? какая машина положила начало механическому этапу развития вычислительной техники? назовите признаки, отличающие эвм...
leralagbibl
16.10.2021 00:28
Сколько единиц в двоичной записи числа 112. , нужно,...
sonsan108
28.09.2022 04:44
Сколько столбцов, строк и листов содержит лист ms excel 2010?...
1Nikanikanika1
27.10.2022 16:20
ответьте на вопрос ! память, содержимое которой стирается при выключении пк...
bnhgj4p08xdt
23.03.2022 13:57
Последовательность состоит из различных натуральных чисел и завершается числом 0. определите значение второго по величине элемента в этой последовательности. гарантируется, что в...
спаситепомогите111
30.03.2023 08:56
Количество бит информации, обрабатываеле процессором за один такт...
Ася2oo3
07.04.2020 05:17
На материнской плате находятся: 1) cd-rom 2) оперативная память 3) процессор 4) винчестер 5) постоянная память 6) блок питания...
gomonovdima71
02.04.2022 12:14
Виды внешней памяти: 1) dvd 2) жмд 3) флэш 4) usb 5) бис 6)rom...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin;
k:=0;
m:=1;
readln(T);
if T<0 then exit;
for i:=1 to T do
begin;
m:=m*10;
k:=k+m;
end;
writeln(k);
end.