1)Вводить числа с клавиатуры, конец ввода- 999. Посчитать средне-арифметическое из положительных нечетных чисел. Такие числа и результат выдать на экран.
2)Составить программу, определяющую минимальное из всех введенных чисел с клавиатуры. Признак конца ввода- число 0. Организовать цикл. при вводе 999- выход из программы
Добавлено через 1 мин.
плииииз
readln(chislo);
if (chislo>0 ) and (odd(chislo)) then ...
что то вообще не понятно а поподробнее можно ?
сумма чисел:=0;Вам нужно записать его по правилам языка Паскаль.
количество чисел:=0;
Повторять
ввести число;
если число> 0 и число - нечетное то
начало
вывести число;
сумма чисел:=сумма чисел+число:
количество чисел:=количество чисел+1;
конец
до тех пор пока число=666;
среднее:=сумма чисел / количество чисел;
вывести среднее;
благодарен
! | Правила Форума, п.4. Правила раздела Задачи, п.1. Тема переименована и закрыта. |