Составить программку на языке Паскаль для вычисления суммы всех четных чисел
Составить программку на языке Паскаль для вычисления суммы всех четных чисел на промежутке от 1 до н.
(9 задание)
1 ответ
Юля
Ответ:
Разъяснение:
var
i,n,s:integer;
begin
write('Введите n=');
readln(n);
s:=0;
while ilt;=n do
begin
if i mod 2=0 then s:=s+i;
i:=i+1;
end;
writeln('s=',s);
readln;
end.
===================================
И чуть кратче с циклом for
var
i,n,s:integer;
begin
write('Введите n=');
readln(n);
s:=0;
for i:=1 to n do
if i mod 2=0 then s:=s+i;
writeln('s=',s);
readln;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Здравствуйте
Меня зовут Виталий, я AdOps-аналитик компании Adfinity.pro
Заинтересовал ваш проект obrazovalka.com
Думаю сможем увеличить
Разные вопросы.
мне очень срочно нужно сочинение по рассказу экспонат номер по дной
Литература.
Облако тегов