составить программу нахождения S=1+2+3..+N
5-9 класс
|
уровень 9 класса
var
s,n,i:integer;
begin
writeln('Введите N');
readln(n);
for i:=1 to n do
s:=s+i;
writeln('Сумма = ',s);
end.
Другие вопросы из категории
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!
Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера M х N, у которой все элементы J-го столбца имеют значение 5•J (J = 1, …, N). Вывести матрицу в общепринятом виде.
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"