Вопрос по информатике:
Вывести и подсчитать сумму четных положительных чисел меньших 100.
Написать на Паскале)
- 08.04.2018 20:47
- Информатика
- remove_red_eye 1297
- thumb_up 8
Ответы и объяснения 1
Var i,k:integer;
begin
k:=0;
writeln('chetnue chisla <100');
for i:=100 downto 1 do begin
if((i mod 2)=0) then
begin
write(' ',i);
k:=k+i;
end;
end;
writeln;
writeln('suma chetnux chisel',k);
end.
- 09.04.2018 19:01
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.