Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на циклы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Cavallari
Последовательно вводятся с клавиатуры натуральные числа (конец ввода - число 0). Найти сумму нечетных чисел, меньших 99 и их количество.
Артемий
const
n=10;
var
i,k,sum,col: Integer;
begin
sum:=0; col:=0;
for i:=1 to n do begin
readln(k);
if (k<99) and odd(k) then begin
sum:=sum+k;
inc(col);
end else continue;
end;
writeln(sum,' ',col);

?
klem4
Цитата
Найти сумму нечетных чисел



долго отправлялось ... уже исправил.
Cavallari
а она идет? программа в смысле? я чайник в этом полнейший
klem4
Артемий

Цитата
(конец ввода - число 0)


)
Артемий
Да вроде у меня шла...только я не учел ноль...там только 10 раз..
Цитата
Найти сумму нечетных чисел

а разве odd возвращает тру при четном значении?
klem4
Когда я писал то сообщение odd там не было ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.