Войти Регистрация Спроси ai-bota

Вычислите сумму ряда 10, 100, 1000 на языке паскаль,

Ответ:

тлрп

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 оценок)

Популярные вопросы: Информатика

kakaha7

19.03.2021 12:05

Находясь в корневом каталоге только что отформатированного диска, ученик создал 3 каталога. затем в каждом из них он создал еще по 4 каталога. сколько всего каталогов оказалось...

brandenberg

07.09.2021 08:31

Написать краткий конспект на тему Форматы файлов (10 предложений)...

Rostik9999

01.07.2022 01:45

Чем отличаются копия изображений,если выполнить их с клавиш Ctrl или...

пОмО0гите

10.02.2020 21:36

Составьте таблицы истинности...

dvc

19.02.2021 08:35

сеня и Оля учатся в художественной школе, они постоянно одалживают друг другу наборы карандашей и всегда возвращают. Для учёта они составили уравнение: ax-b=0. Напиши программу,...

dashavorobeva2

27.06.2020 03:11

меня Определи информационный объем в Кбайтах изображения размером 320×480 пикселей с палитрой 2¹⁶ цветовых оттенков. Введи верный ответ...

гол38

10.06.2021 22:14

Сколько Кбайт составляет сообщение из 32768 символов 16-символьного алфавита?...

doriii72

14.11.2020 09:33

1. Что такое файл? 2. Произнесите ключевые слова темы на трех языках. 3. Почему в программировании используют работу с файлами? 4. Какие виды файлов существуют в программировании?...

lilulurens

24.10.2020 22:52

с таблицой мне надо только белые ячейки скорее умаляю по скореее...

AllaStepanova85

08.05.2020 23:40

Даны 3 числа. Сколько среди них кратных n...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку