tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Для разных чисел вводимых
Для разных чисел вводимых с клавиатуры найдите сумму положительных не чётных.написать программу на паскале.
ник3123
3 21.07.2019 13:20
0
Ответы
халк65
25.08.2020 11:53
Program summ;
var
n, sum : integer;
begin
writeln('Вводите числа (введите 0 для выхода):');
sum := 0;
repeat
readln(n);
if ((n>0) and (n mod 2 <>0)) then
sum := sum+n;
until n=0;
writeln ('Сумма положительных нечётных чисел равна ', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alinkamalina04
22.06.2019 11:20
Общее свойство местности и ее модели карты местности...
Mаjоr
22.06.2019 11:20
Уяких випадках використовують інструмент вибір кольорів? як ним користуватися?...
katyaaalovely
22.06.2019 11:30
Файл размером 6 мб передается через некоторое соединение за 2 мин 30 сек определите размер файла (в мб) которое можно передать через этоже соединенение за 50 сек...
клубника25
22.06.2019 11:30
Дан массив содержащий натуральные элементы. посчитать кол-во двузначных элементов массива....
Ден2251
22.06.2019 11:30
Напишите программу , которая вводит число n и определяет является ли число n совершенным. совершенные числа - это те числа, которые равны сумме своих делителей, не включая...
k1llerospace
22.06.2019 11:30
Некое растровое изображение было сохранено в файле p1.bmp как 24-разрядной рисунок. во сколько раз будет меньше информационный объем файла p2.bmp, если в нём это же...
Tosya111
22.06.2019 11:40
Что есть общего между алгоритмом и просто перечислением действий?...
StasVelichko
22.06.2019 11:40
Можно ли назвать алгоритмом такой список действий? 1) прочитай 2)запомни 3) расскажи.можно ли сказать что алгоритм всегда обладает свойством понятности исполнителю?...
jrbr
22.06.2019 11:40
Надо составить кроссворд с ключевым словом состав...
ника2727
22.06.2019 10:37
ответить на вопросы! 40 ! 1. понятие информационного общества? 2. известны имя почтового сервера (binary-digit), находящегося в россии, и имя почтового ящика (alex)....
Популярные вопросы
Вырази в минутах 2ч12мин 3ч20мин 5ч15мин 4ч30мин...
1
Укакого атома и почему сильнее выражены восстановительные свойства...
3
8,8-(x+4,9)=-18,6 решить уравнения...
1
Составить предложение did,clean,your room,you,yesterday...
2
Какими произведениями прославился бетховен...
3
Вкаком слове на месте пропуска ипишется а? раств_ритель...
3
1)совокупность взимосвязанных положений , подтвержденных путем наблюдений...
1
Известно что синус альфа равен -5/13 и 3п/2...
1
Решите уравнение (x-9)(x-3) - (x-8)(x+8) = -5...
3
Почему человек должен сохранить природу...
1
var
n, sum : integer;
begin
writeln('Вводите числа (введите 0 для выхода):');
sum := 0;
repeat
readln(n);
if ((n>0) and (n mod 2 <>0)) then
sum := sum+n;
until n=0;
writeln ('Сумма положительных нечётных чисел равна ', sum);
end.