Вычислить сумму S первых N натуральных чисел. Если S < 50, то вычислить сумму S1 четных натуральных чисел в пределах до N и вывести ее на печать. Если S > =50, то отпечатать S. N ввести с клавиатуры.
Программа
var
s, s1, n : longint;
begin
readln(n);
s := ((1 + n) * n) div 2;
if(s >= 50) then writeln(s) else begin
if(n mod 2 <> 0) then dec(n);
s1 := ((2 + n) * n) div 4;
writeln(s1);
end;
end.
Похожие записи/страницы:
- Дана последовательность из n-чисел.Найти сумму всех чисел,начиная с 5-го числа и вычислить сумму первых 4-х…
- Создать последовательность натуральных чисел, заканчивающихся нулем (т.е. размер массива заранее не известен).…
- Вычислить наибольший общий делитель двух натуральных чисел А и В - Pascal(Паскаль)
- Вычислить сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа М - Pascal(Паскаль)
- Если a+b<c^3 , вычислить и отпечатать наибольшее из a, b, c, иначе вычислить и отпечатать x=tg(a|c). Если…
- Дано 3 числа. Если они все отрицательные, то вычислить и напечатать куб 2-го числа, в противном…
- Дано 100 вещественных чисел, которые вводятся по одному. Вычислить среднее арифметическое чисел, больших…
- Дана последовательность из n целых чисел. Вычислить сумму тех из них, порядковые номера которых - простые числа.…