47

Паскаль! Среди введенных пользователем чисел подсчитайте сумму…

juggernaut 12 августа 2022

Паскаль! Среди введенных пользователем чисел подсчитайте сумму нечетных, окончание ввода число 2. (while)

категория: информатика

39

Program chik; var n,s: integer; beginn: =-1; s: =0; while n<>2 dobeginread (n); if (n mod 2=0) then s: =s+n; end; write (s); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике
12 августа 2022
11. Определить значение переменной sпосле выполнения следующих команд.… s: =3; i: =2; пока i <= 17 выполнять начало цикла s: =s+i; i: =i+2; конец циклаs: =s+8; … 12. Дано число а, равное пяти. Новое число получается, если предыдущее число увеличить в трираза, затем к результату прибавить четыре и от полученного числа отнятьпредыдущее число. Таким образом, получили последовательность тридцати целыхчисел (включая первое число пять). Найдите их сумму. 13. Хозяин киоска Рустам поехал наоптово-торговочную базу за товаром. На базе имеется товар в ящиках по 16, 17 и 21 килограмм. Найдите, сколько существует способов взять ровно 485 килограммтовара, не вскрывая ящиков. 14. Три блондинки были свидетеляминарушения правил дорожного движения. Номер автомобиля –четырехзначное число – никто, конечно не запомнил. Но из оживленногоразговора следователь узнал, что номер делится на 2, на 11 и на 7, в записиномера участвуют только две цифры, а сумма цифр номера равна 30. Найдитеномер машины. 15. Дана последовательность символов: SFNFN. К которой применен следующий цикл обработки: 1. Все вхождения символа “S” заменить на “NN”; 2. Все вхождения символа “F” заменить на “S”; 3. Все вхождения символа “N” заменить на “F”; Например, после однократного выполнения этогоцикла обработки получится последовательность: S=FFSFSFЗапишите получившеюся последовательность, если цикл применялся двенадцать раз

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...