Посчитать количество чётных и нечётных цифр в числе

@rtdhbsez · Регистрация: 09.03.2021

Студворк — интернет-сервис помощи студентам

Написать программу на языке Паскаль для решения следующей задачи:

Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе.

@patnik · 09.05.2021, 04:01

Pascal
1
2
3
4
5
6
7
8
###
uses school;
var (c,d):=(0,0);
foreach var i in ri.Digits do
  if i.iseven then c+=1
  else d+=1;
println('количество чётных цифр -',c);
println('количество нечётных цифр -',d)

Pascal
1
2
3
4
uses school;
var n:=ri;
println('количество чётных цифр -',n.Digits.wh(x->x.iseven).cnt);
println('количество нечётных цифр -',n.Digits.wh(x->x.isodd).cnt);

@rtdhbsez · 09.05.2021, 12:25 **[ТС]**

Здравствуйте, выдает ошибку

@patnik · 09.05.2021, 12:29

Обновите pascal до последней версии

@Sun Serega · 10.05.2021, 01:32

Во второй программе не хватает заголовка - в ней тоже надо ### в начале.

Сообщение от rtdhbsez

Здравствуйте, выдает ошибку

А текст ошибки не для красоты даётся. Без него не понятно что исправлять.

@rtdhbsez · 11.05.2021, 23:16 **[ТС]**

мне нужно использовать онлайн вариант программы. вот таку. ошибку выдает
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
main.pas(1,1) Error: Illegal char constant
main.pas(1,1) Error: Illegal char constant
main.pas(1,1) Error: Illegal char constant
main.pas(1,4) Fatal: Syntax error, "BEGIN" expected but "const string" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)

@Sun Serega · 11.05.2021, 23:49

Ну так вы компилятор используете Free Pascal, при чём ужасно древнюю версию, а пишете в раздел PascalABC.Net . Это совершенно разные языки.

@rtdhbsez · 12.05.2021, 08:58 **[ТС]**

Ок. Создам тему там.

@mr-Crocodile · 12.05.2021, 09:32

Сообщение от rtdhbsez

Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n,      // переменная для хранения исходного числа
    cnt1,   // переменная-счётчик для подсчёта чётных цифр
    cnt2    // переменная-счётчик для подсчёта нечётных цифр
      : longint;
begin
  WriteLn('Введите четырёхзначное число: ');
  ReadLn(n);
  n := abs(n);
  cnt1 := 0; cnt2 := 0;
  repeat
   if odd(n) then inc(cnt2) else inc(cnt1);
   n := n div 10
  until n=0;
  WriteLn('количество чётных цифр -',cnt1);
  WriteLn('количество нечётных цифр -',cnt2)  
end.

Добавлено через 1 минуту

Сообщение от rtdhbsez

Ок. Создам тему там.

rtdhbsez, упс. не увидел сообщение и написал код для FPC тут.

@rtdhbsez · 12.05.2021, 12:42 **[ТС]**

спасибо

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@rtdhbsez 0 / 0 / 0 Регистрация: 09.03.2021 Сообщений: 81

	Посчитать количество чётных и нечётных цифр в числе 09.05.2021, 01:27. Показов 2811. Ответов 9 Метки задача, паскаль abc.net (Все метки) Написать программу на языке Паскаль для решения следующей задачи: Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе. 0

@rtdhbsez 0 / 0 / 0 Регистрация: 09.03.2021 Сообщений: 81
	09.05.2021, 12:25 [ТС]
	Здравствуйте, выдает ошибку 0

@patnik 4 / 4 / 0 Регистрация: 20.12.2020 Сообщений: 32
	09.05.2021, 12:29
	Обновите pascal до последней версии 0

@rtdhbsez 0 / 0 / 0 Регистрация: 09.03.2021 Сообщений: 81
	11.05.2021, 23:16 [ТС]
	мне нужно использовать онлайн вариант программы. вот таку. ошибку выдает Copyright (c) 1993-2012 by Florian Klaempfl and others Target OS: Linux for x86-64 Compiling main.pas main.pas(1,1) Error: Illegal char constant main.pas(1,1) Error: Illegal char constant main.pas(1,1) Error: Illegal char constant main.pas(1,4) Fatal: Syntax error, "BEGIN" expected but "const string" found Fatal: Compilation aborted Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled) 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	11.05.2021, 23:49
	Ну так вы компилятор используете `Free Pascal`, при чём ужасно древнюю версию, а пишете в раздел `PascalABC.Net` . Это совершенно разные языки. 0

@rtdhbsez 0 / 0 / 0 Регистрация: 09.03.2021 Сообщений: 81
	12.05.2021, 08:58 [ТС]
	Ок. Создам тему там. 0

@rtdhbsez 0 / 0 / 0 Регистрация: 09.03.2021 Сообщений: 81
	12.05.2021, 12:42 [ТС]
	спасибо 0

Посчитать количество чётных и нечётных цифр в числе

Решение