38

Підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють…

03 апреля 2023

Підрахувати суму всіх натуральних чисел, які діляться на 3 і не перевищють деякого числа N. Паскаль, цикл for. Думаю, будет примернотак:

категория: информатика



53

Решалось примерно следующим образом: Объявить две переменные для числа n и суммы чисел. А хотя нет. Надо три (еще управляющая переменная для for) Ввести число nЗная, что натуральные числа — это все числа от единицы, создаем цикл for с таким условием: управляющая переменная i=1, i < n i+(увеличить на 1) (на паскале будет примерно так: for i: =1 to (n — 1) do begin … . endДалее в теле цикла сделать условие: если i делится без остатка, то прибавить это число к переменной для суммы чисел (которая в начале равна 0) Ну и в конце вывести сумму. Вот вариант на C+#include using std: cout; using std: cin; using std: endl; int main () { int n, total=0; cout << "Enter the number: "; cin >> n; for (int i=1; i < n; i+) { if (i % 3=0) { total+=i; } } cout << "Sum=" << total << endl; cin.get (); return 0; } Вроде и на Паскале получилось: program test; var i, n, total: integer; begin write ('Enter n: '); readln (n); total: =0; for i: =1 to (n — 1) do begin if i mod 3=0 then total: =total+i; end; writeln ('sum=', total); readln (); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...