сервис вопросов и ответовПостроить программу в Pascal. "Даны четыре целых числа. Определить сколько из них четных." Надо завтра сдать, помогите пожалуйста!
5-9 класс|
|
МоРоЖенКо
24 нояб. 2016 г., 12:24:10 (7 лет назад)
Lanatokar75
24 нояб. 2016 г., 14:25:29 (7 лет назад)
var i,r,a:integer;
begin cls;
r:=0;
For i:=1 to 4 do
begin
read(a);
if a mod 2 = 0 then inc(r);
end;
writeln('chetnyh = ',r);
readln;
end.
Ответить
Другие вопросы из категории
Пароль от почтового ящика в виде четырехзначного числа Вася зашифровал так : цифры, занимающие чётные разряды (нумирация разрядов ведеся справо налево н
ачиная с нуля) , циклически сдвигаются вправо , а нечетные - влево на количество позиций, равных номеру разряда. Так, например циклический сдвиг цифры 7 на четыри позиции вправо дает нам 1 ( 7-8-9-0-1). Затем из нечетных цифр вычитается , а к четным прибавляется 1. Далее оба шага повторяются еще один раз. В результате шифровки получилось число 3216. Определите пароль.
Составьте программу, которая заполняет массив A[1..10] случайными целыми числами в диапазоне от 1 до 50 и вычисляет среднее арифметическое элементов с
четными значениями элементов массива.
Иван решил найти все письма от адресата,про электронный адрес которого помнит,что тот содержит подстроку petrov?в которой возможны ошибка(но не более
двух). Сколько из нижепредставленных адресов электронной почты подходят Ивану?
petrova_lada
misha_vetrov
veerovich
lida_peshova
Читайте также
1.Даны 3 целых числа, вывести те из них которые являются чётными. Срочно!!! 2.Даны 4 вещественных числа, определить сколько из них
отрицательных.Срочно!!!
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
Вы находитесь на странице вопроса "Построить программу в Pascal. "Даны четыре целых числа. Определить сколько из них четных." Надо завтра сдать, помогите пожалуйста!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.