1. Информатика
  2. Введите положительное число

Введите положительное число a. найдите сумму всех натуральных чисел из промежутка [1,a]. напишите на паскале плз.

sanekakot sanekakot    3   15.08.2019 18:50    1

Ответы
kositskaya80 kositskaya80  04.10.2020 21:32
Program aga;
var i, sum,a : integer;
begin
writeln('Введите А: ');
readln(a);
for i := 1 to a do
     sum := sum + i;
writeln('Сумма равна: ', a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
KuDiAnA2003 KuDiAnA2003  09.03.2019 21:10
Правило преобразования числовой информации 1-1; 2-1; 3-1; 4-1; 10-2; 11-2; 100-3....
Noob335 Noob335  09.03.2019 21:10
Исполнитель вычислитель забыл одну из своих старых команд, но зато освоил новую команду и теперь его ски имеет вид: *2 умножить на 2 = стереть последнюю цифру с этих команд он...
Neznakomka111111 Neznakomka111111  09.03.2019 21:10
Кто решит, тот молодечик! дана матрица ( массив ) a(n; m). вывести на экран массив a(n; m) и сумму элементов этого массива, находящихся в строке х. размеры массива a(n; m) и номер...
Евочка2000 Евочка2000  09.03.2019 21:10
Вывести на экран двумерный массив с датчика случайных чисел. количество строк-7, столбцов 10. поменять местами строки с №2 и №5, удалить строку №6...
Alice26the03time2004 Alice26the03time2004  09.03.2019 21:00
Каждый круг изображает множество. множество рыб - а множество карасей - в множество хищных животных - с 1 рис)нарисовано 2 круга они соеднены на половину! 2 рис)нарисованы 2 круга...
yaroslavat05 yaroslavat05  09.03.2019 21:00
Правило преобразования числовой информации 1-1; 2-2; 3-0; 4-1; 20-2; 21-0...
help1010100101020349 help1010100101020349  09.03.2019 20:50
Загадано число от 50 до 113. вычислить объем информации,поступившей о том,какое число загадано...
danilkarev201 danilkarev201  09.03.2019 20:50
Дан массив целых чисел, состоящий из 10 элементов.заполнить его с клавиатуры. найти: -удвоенную сумму положительных элементов; -удалить все четные элементы массива....
fhjanvmendwr fhjanvmendwr  09.03.2019 20:50
Как в программе кумир, исполнитель робот, закрасить над стенкой только до её конца? а не до крайней стены. и еще, можно ли в программе использовать такие слова: нц пока снизу...
daha77 daha77  09.03.2019 20:50
Написать программу на паскале: у юного фермера тимы 5 кроликов. определите минимальный вес кроликов(вес каждого задать произвольно)...

Популярные вопросы