Найти сумму первых K четных чисел.
5-9 класс
|
Var K,m,I:integer;Begin Read(k);If k mod 2=1 then k:=k-1;For I:= 1 to (k div 2) doBegin M:=m+i*2;End;
var k: integer;
begin
write ('Введите число: '); read(k);
writeln ('Сумма первых ',k, ' чётных чисел = ',(k+1)*k);
end.
в паскале 8 класс
К вводится с клавиатуры?
составить программу паскаль, да
Другие вопросы из категории
НАЙТИ!!!!!!!!!!!!
ЗАМЕТЬТЕ !!! НЕ ИЗ КВАДРАТОВ!!!
А ИЗ КУБИКОВ!!!!!!!
Рисунок нужен очень срочно!!!
Нужно сделать из кубиков имя : ИЛЬЯ
Вернее доделать! Мою работу.
Желательно по ровнее!!
Читайте также
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Найти сумму и произведение четных чисел от a до n (a<n)
Очень прошу помогите
Найти сумму первых n натуральных чисел кратных 3.
С клавиатуры вводятся n чисел. Найти сумму первых трёх нечетных чисел.
Очень вас прошу! Помогите, пожалуйста, с информатикой...)