Напишите программу,которая вычисляет сумму первых n натуральных чисел
5-9 класс
|
var s,n:integer;
begin
readln(n);
for n:=n downto 1 do
s+=n;
writeln(s);
end.
program p1;
var s,n,i,b:integer;
begin
writeln('введите кол-во чисел');
readln(n);
s:=0;
b:=0;
for i:=1 to n do begin
s:=s+1;
b:=b+s;
end;
writeln(b);
end.
Программу писал полностью сам, полностью работоспособна,если помог ставь ответ как лучший.
Другие вопросы из категории
1. 36 Мбайт перевести в Кбайт
2. 8 Гбайт перевести в Кбайт
3. 5648 байт перевести в Мбайт
4. 10248 бит перевести в Кбайт
Dat[2] – второй ученик и т.д.). Определите, что будет напечатано в
результате работы следующей программы.
Алгоритмический
язык
алг
нач
целтаб Dat[1:11]
цел k, m
Dat[1]:=20; Dat[2]:=25
Dat[3]:=19; Dat[4]:=25
Dat[5]:=26; Dat[6]:=22
Dat[7]:=24; Dat[8]:=28
Dat[9]:=26; Dat[10]:=21
Dat[11]:=27
m:= 30
нц для k от 1 до 11
если Dat[k] < m то
m:=Dat[k]
все
кц
вывод m
кон
Читайте также
(ниже представлен рекомендуемый вид экрана во время работы программы)
Вычисление частичной суммы рада 1,3,5,7.
Введите количество суммируемых членов ряда: 15
Сумма первых 15 членов ряда равна 330.
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат