tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте алгоритм вычисления
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. проверьте алгоритм трассировкой. напишите программу на паскале.
D202
2 29.05.2019 10:50
4
Ответы
agentWINX
28.06.2020 12:11
Var a,k,n:integer;
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
LAKI2280041
28.06.2020 12:11
Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dashakechenkova
28.09.2019 07:50
Рассчитать объем памяти, необходимой для представления 2-ух минутного фильма на экране монитора с пространственным разрешением 400 * 500 пикселей и палитрой из 256 цветов,...
aisipat055
16.04.2020 17:23
Нужно найти схожесть и различия этапов решения задач по математике , физике и информатике,но буду благодарен если сразу с 3 заданиями ...
YuLia120620
16.04.2020 17:22
3. Введите с клавиатуры расстояние L в сантиметрах. Используя операцию деление нацело, найти количество полных метров в нем (1 метр = 100 см). 4. Введите с клавиатуры...
Опз2
26.01.2021 15:19
Пользователь вводит целые числа. Пока он не введёт число большее 1717, в ответ на каждое введённое число выводите сумму этого числа и числа 88, если же введённое число...
ExKise
26.01.2021 15:20
нужно написать и нарисовать программу к робика...
brain67
26.01.2021 15:20
Папа купил два фанерных листа. Первый лист ширина = 90 см, длина 1,2 метра, Второй лист ширина = 80 см, длина 1,5 метра. Какая общая площадь будет у этих фанерных листов?...
Коsмoc
21.01.2020 21:56
Пример 4. алгоритм, позволяющий из полного сосуда ёмкостью 12 л отлить половину, пользуясь двумя пустыми ёмкостью 8 и 5 л.алг переливанияначнаполнить сосуд ёмкостью...
gleb21717
21.01.2020 22:04
Напишите программу которая находит первые n натуральных чисел у которых остаток от деления на 3 равен 1. pascalabc.net...
frizikxx
16.02.2021 17:45
Для хранения растрового изображения размером 200 х 200 пикселей отвели 12 КБ памяти. Каково возможное число цветов в изображении?...
Ксения095
16.02.2021 17:44
Х Программирование линейныхалгоритмов. Урок 1Изучи предложенный программный код иустанови соответствие междупеременными и соответствующимичисловыми значениями, если...
Популярные вопросы
Рідини: а) погано передають тиск б) передають тиск згори вниз в)...
1
Прочитайте тексты, выполните задание. Текст 1 В...
3
. Мәтін мазмұнына сай келмейтін сөзді көрсетіңіз. [1] Укажи...
3
Задание 1. ответьте на вопросы, выбрав один ответ из четырех предложенных....
2
1. Гуманизм — это 1) критическое отношение к окружающим 3) стремление...
3
твір-мініатюра м.булгакова собаче серце - картинка потворних явищ...
3
Укажите слово, повторяющие в описании внешности Пьера подчеркиваюеще...
1
Https://youtu.be/OzLzstf-ZUo.ұ...
2
ИТОГОВАЯ КОНТРОЛЬНАЯ! 15. Укажите номера бессоюзных предложений,...
3
Выполните действие 1 2/3 (-3 1/3) = ?...
3
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.