сервис вопросов и ответовС клавиатуры вводятся числа до сих пор пока не введено число -5. Найти количество чисел кратных 13 из введенных.
5-9 класс|
|
AnelyaBe
02 февр. 2015 г., 18:56:28 (9 лет назад)
Амина8546
02 февр. 2015 г., 20:33:36 (9 лет назад)
var i,s:integer;beginwhile i<>-5 do beginreadln(i);if i mod 2=0 then s:=s+1;end;writeln(s);end.
Ответить
Другие вопросы из категории
Как-то играя в магическую игру Петя Молодцов встретил тролля. У этого тролля была отличительная черта - жить под мостом, лгать с воскресенья по вторник и
не лгать в остальные дни. Задав пару вопросов, Петя получил следующие ответы: 1) Вчера я не был правдив. 2) А начиная через день, я не буду говорить правду ещё два дня подряд. Встреча произошла в... А) воскресенье Б) вторник В) среду Г)четверг я выбрал В, так как он сказал, что врал во вторник(правда) и что не будет говорить правду в пятницу и субботу(не обязательно ложь, может он вообще ничего говорить не будет) или всё таки воскресенье???
Читайте также
Помогите с задачей.
Вводится последовательность целых чисел, до тех пор пока не введено число n
Найти сумму положительных среди них?
написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры.
пример:
5+5+5=15=1+5=6
он должен ответ складывать так как показано в примере как это сделать я не как не могу понять(
Цикл с пост условием!! помогите
Написать программу которая будет вводить целые числа до тех пор пока не будетвведён 0. Подсчитать количество положительных и отрицательных чисел.
ПОМОГИТЕ НАПИСАТЬ ХОТЯ БЫ ОДНУ ЗАДАЧУ НА Pascal ОНИ НЕ СЛОЖНЫЕ , А Я ДАЮ МНОГО ПУНКТОВ!! За 2 лучший ответ! Без плагиата! 1.Написать
программу,используя оператор цикла While,которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2.Написать программу используя оператор цикла Repeat,которая будет вводить целые числа до тех пор пока не будет введён 0.Подсчитать среднее арифметическое введённых чисел.
Вы находитесь на странице вопроса "С клавиатуры вводятся числа до сих пор пока не введено число -5. Найти количество чисел кратных 13 из введенных.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.