сервис вопросов и ответовПаскаль!!! Даны четыре целых числа, сколько из них четные. Решение
5-9 класс|
|
Atos1
21 марта 2017 г., 7:42:06 (7 лет назад)
Rainbow55
21 марта 2017 г., 8:32:51 (7 лет назад)
var a,b,c,d,x:integer;
begin
x:=0;
wirteln('Введите число 1');
readln(a);
wirteln('Введите число 2');
readln(b);
wirteln('Введите число 3');
readln(c);
wirteln('Введите число 4');
readln(c);
if a div 2 = 0 then x:=x+1;
if b div 2 = 0 then x:=x+1;
if c div 2 = 0 then x:=x+1;
if d div 2 = 0 then x:=x+1;
writeln ('Четных чисел= ',x)
end.
Ответить
Другие вопросы из категории
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
В магазине продаются обои цена М тг за 1 рулон, составить программу которая подсчитывает и выводит на экран стоимость К рулонов этих обоев
ПОЖАЛУЙСТА, КТО-НИБУДЬ, НАПИШИТЕ, НА ЗАВТРО НАДО, СРОЧНО, ПЛИИЗ!!! ЛЮДИ, УМОЛЯЮ! И ВСЁ ПО ПАРЯДКУ ПИСАТЬ, КУДА ЗАХОДИШЬ, КАК ,ЧТО ДЕЛАЕШЬ! Я УЖЕ 3 РАЗ
ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НА ЗАВТРА НАДОО!!
1.Откройте в Программе просмотра изображений и факсов любой графический файл в формате ВМР ( например, Тема 7\ Задания 7.1\ образец bmp.). Сохраните этот рисунок в форматах JPG, GIF, TIFF. Сравните размеры созданных файлов с оригиналом. Объясните, как влияет формат файла на его размер и качество изображения. 2. Просотрие значение свойств файлов графических изобраений( например, из папки Тема 7\ задания 7.1\ Упражнение 7) Спомощью команды свойства контекстного меню этих объектов и заполните таблицу. Сделайте вывод, как зависит размер файла от вида графики. Там 1-векторная и 1 -растровая
Читайте также
1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т.д.
2.Даны 3 переменные вещественного типа:А,В,С.Если их значения упорядочены по возрастанию,то удвоить их.В противном случае заменить значение каждой переменной на противоположное.Вывести новые значения переменных А,В,С.
3. Даны 3 целых числа,одно из которых отлично от двух других,равных между собой. Определить порядковый номер числа,отличного от остальных.
1)найти количесво делителей натурального числа,сколько из них чётных? 2) дано натуральное число: найти две первые цыфры числа
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
1)Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел
от A до B включительно.
2)Даны натуральные числа от A до B(A<B). Найти произведение тех из них, которые делятся на 3 и не делятся на 4.
3)Ангелина узнав, что Боря занимается спортом, решила не отставать. Она каждый день делала от 3 до 5 упражнений на икры (вводится во время выполнения программы) и 5 упражнений на пресс. Сколько упражнений она сделала за 5, 10 и 13 дней. (количество упражнений на икры на каждый день вводится отдельно)
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
Вы находитесь на странице вопроса "Паскаль!!! Даны четыре целых числа, сколько из них четные. Решение", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.