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;
А как дальше не знаю =(
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.
ты задолбаешься там постоянно на 10 делить. Лучше через while
Другие вопросы из категории
1) Вывести на экран квадраты натуральных чисел от n до m. При этом n>m. Ввести с клавиатуры.
2) Вывести на экран степени целой величины x. Объявить степени longit
Заранее спасибо!
следующему правилу: к чётному числу прибавляет 3,а к нечётное умножает на 4
размер файла в Кбайт.
Написать программу и желательно блок схему,заранее спасибо
Читайте также
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
менее 3-х лет
Задача2
Даны три числа, определить сколько чётных
Задача3
Является ли 4-х значное число палендромом
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат