0 / 0 / 0
Регистрация: 17.05.2013
Сообщений: 9
1

Вводить числа с клавиатуры конец ввода число 0. Найти сумму четных и произведении нечетных чисел . Выдать результат на экран

31.05.2013, 08:23. Показов 4816. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста.Вводить числа с клавиатуры конец ввода число 0. Найти сумму четных и произведении нечетных чисел . Выдать результат на экран.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2013, 08:23
Ответы с готовыми решениями:

Вводить с клавиатуры 10 целых чисел,выдать на экран те числа,которые меньше введенного с клавиатуры числа,и их сумму
1ая программа. вводить с клавиатуры 10 целых чисел,выдать на экран те числа,которые меньше...

Введя числа с клавиатуры без ограничения их количества (конец ввода - число ноль), найти сумму положительных и произведение отрицательных чисел
Помогите решить, пожалуйста. Введя числа с клавиатуры без ограничения их количества (конец ввода...

Вводятся числа. Конец ввода - 0. Найти сумму положительных четных трехзначных чисел
:read:

Вводить числа с клавиатуры, пока не встретится 0. Подсчитать сумму всех * введенных нечетных чисел
Помогите,пожалуйста! По информатике задали...Язык паскаль Вводить числа с клавиатуры, пока не...

2
Фрилансер
3413 / 2810 / 3000
Регистрация: 08.02.2012
Сообщений: 8,208
Записей в блоге: 1
31.05.2013, 08:27 2
Лучший ответ Сообщение было отмечено svchost как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
s:=0;pr:=1;
Repeat
 write('Число: ');readln(m);
 if m<>0 then
  if odd(m) then pr:=pr*m;
   else s:=s+m;
Untill m=0;
writeln('Сумма чётных = ',s);
writeln('Произведение нечётных = ',pr);
0
0 / 0 / 0
Регистрация: 17.05.2013
Сообщений: 9
31.05.2013, 08:43  [ТС] 3
Очень признателен

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, то вы можете выразить свою благодарность, нажав кнопку "Спасибо" внизу самого поста
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2013, 08:43

Найти сумму первых n нечетных натуральных чисел, n вводить с клавиатуры (оператор while)
Найти сумму первых n нечетных натуральных чисел, n вводить с клавиатуры (оператор while)

Найти сумму всех четных и произведение нечетных из 10-ти введенных чисел с клавиатуры
uses crt; var x, j, p, s: integer; begin p:=1; s:=0; for j:=1 to 10 do begin read (x); if x...

Вводить с клавиатуры целые числа (>0) и выводить на экран квадраты этих чисел до тех пор, пока не будет введено число 0 (while-do)
Вводить с клавиатуры целые числа (&gt;0) и выводить на экран квадраты этих чисел до тех пор, пока не...

Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести количество введеных чисел
Вводить с клавиатуры целые числа до тех пор, пока не будет введено число 0. На экран вывести...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.