найдите сумму всех натуральных чисел от 1 до m
5-9 класс
|
var
n,i,sum:integer;
begin
readln(n);
sum:=0;
i:=0;
while i<n do
begin
i:=i+1;
sum:=sum+i;
end;
writeln(sum);
end.
Другие вопросы из категории
1...Записать на языке паскаля: Условие 1) -3<x<=(меньше или равно)10;
2)x (не равно 0) ,у(не равно 0);
3)x(принадлежит) [-10;0);
4)величина x не кратна 3:
2.Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит на экран.
3.Введите три числа a,b,c.Найдите сумму двух наибольших из них.
ПОМОГИТЕ ПОЖАЛУЙСТА,ОЧЕНЬ ВАЖНОЕ ЗАДАНИЕ,ОТВЕЧУ ВЗАИМНОСТЬ...)
Огромное спасибо за ранее...
12 метров, вторая на 16 метров, третья на 17 метров и остаются там до следующего дня. Через сколько дней улитки могут выбраться из колодца? Заранее спасибо.
Читайте также
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n