сервис вопросов и ответовPascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его на экран.
5-9 класс|
|
Пример:
Вход 1212
На выходе 2
Я сделал:
program Test;
uses Crt;
var A,B,C,D,E: integer;
begintextbackground(8);
clrscr;
textcolor(15);
write('Введите 4-х значное число: ');
textcolor(13);
read(A);
C:=A div 1000;
B:=A div 100;
B:=A mod 10;
D:=A mod 100;
D:=A div 10;
E:=A mod 10;
E:=A mod 10;
А как дальше не знаю =(
Катюша2411
12 апр. 2015 г., 9:38:51 (9 лет назад)
Duchanina
12 апр. 2015 г., 10:42:07 (9 лет назад)
var x,k: integer;
begin
read (x);
while x>1 do
begin
if x mod 2 = 0 then k:=k+1;
x:=x div 10
end;
write (k);
end.
Sanzharsanzhar
12 апр. 2015 г., 13:40:56 (9 лет назад)
ты задолбаешься там постоянно на 10 делить. Лучше через while
Ответить
Другие вопросы из категории
Добрый вечер! Необходимо написать 2 программы на языке Паскаль!
1) Вывести на экран квадраты натуральных чисел от n до m. При этом n>m. Ввести с клавиатуры.
2) Вывести на экран степени целой величины x. Объявить степени longit
Заранее спасибо!
составьте программу, которая формирует массив, содержащий 10 случайных целых чисел, принадлежавших промежутку [0;7], и преобразует элементы массива по
следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4
Скорость передачи данных через ADSL-соединение равна 256000 бит/c. Передача файла через данное соединение заняла 16 секунд. Определите
размер файла в Кбайт.
известна длина,ширина,высота ящика,на складе n ящиков.найти объем ящика и общий объем всех ящиков.
Написать программу и желательно блок схему,заранее спасибо
Читайте также
1)составьте программу ввода элементов массива а[1..8 ] с клавиатуры и вывода на экран элементов с отрицательными значениями; 2)составьте
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
PASCAL ABC Составить программу, которая определяет подходит кандидат на работу или нет. Возраст:не больше 50, не меньше 17 Стаж:не
менее 3-х лет
Задача2
Даны три числа, определить сколько чётных
Задача3
Является ли 4-х значное число палендромом
Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
Записать решение задач в Pascal Abc:
1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.
Помогите по программе paskal : 1.дано целое число.напишите программу которая уменьшает на 2 модуль этого числа и выводит на экран монитора
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
Вы находитесь на странице вопроса "Pascal ABC. Вводим четырёхзначное число, определить количество чётных цифр и вывести его на экран.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.