Разработать алгоритм нахождения суммы и количества четных чисел натурального ряда, которые меньше К.Значение К вводится с клавиатуры. - Pascal
Формулировка задачи:
Понимаю, что легкая программа на Паскале, но сделать не могу!Помогите пожалуйста
Разработать алгоритм нахождения суммы и количества четных чисел натурального ряда, которые меньше К.Значение К вводится с клавиатуры.
Решение задачи: «Разработать алгоритм нахождения суммы и количества четных чисел натурального ряда, которые меньше К.Значение К вводится с клавиатуры.»
textual
Листинг программы
uses crt;
var
k,i,n,summ:integer;
begin
clrscr;
writeln('Vvodite K');
readln(k);
summ:=0; n:=0;
For i:=1 to K do
if i mod 2=0 then
begin
summ:=summ+i;
n:=n+1;
end;
writeln('Kolichestva=',n);
writeln('Summa=',summ);
readkey
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д