Перевести Код из С на Паскаль ( я перевёл только ошибка при выводе )

@Kolya Moroz · Регистрация: 15.02.2020

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

( почему на Паскале всегда выводит число 328 ??? когда должна бы быть 1 ) )) Я подозревая, что я накосячил с типами данных ( real , integer )
Ребят буду благодарен !

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
#include<iostream>
 
            
int main()
{
    setlocale( LC_ALL,"Ukr" );
    int n,b=0,c=0;
    printf("Програма, що пiдраховує кiлькiсть цифр у введеному цiлому числi n.\n");
    printf("Введiть число\n");
    scanf("%i",&n);
    
    do
    {
    n=(n/10);
    if (n==0)
    c=1;
    b++;
}
while(c==0);
 
    printf("Кiлькiсть чисел. \n");
    printf("%d",b);
    getch();
}

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  n,b,c : real;
begin
  b:=0;
  c:=0;
  readln(n); 
repeat
   begin       
    n:=n/10;
    if n = 0 then
    c:=1;
    b:= b + 1;    
   end;  
until (c <> 0);
  write('кількість чисел =');
   write(b:1:0); 
   readln
end.

@Puporev · 21.02.2020, 16:46

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  n,b: integer;
begin
  b:=0;
   readln(n); 
repeat
    n:=n div 10;
    b:= b + 1;    
until (n=0);
  write('кількість чисел =');
   write(b); 
end.

@Cyborg Drone · 21.02.2020, 17:06

Негоже использовать real для целочисленных переменных, нужно integer.
Глобальные числовые переменные инициализируется нулём, поэтому в начале программы присваивать переменным ноль не обязательно.
Для целых чисел нужно использовать не "/", а "div".
Repeat..until являются операторными скобками, не нужно их дублировать операторными скобками begin..end.
Выход из repeat..until происходит, если условие истинно, поэтому нужно не "<>", а "=".
If не нужен, всё, что нужно, сделает until.
Переменная "c" не нужна.
Лучше использовать поясняющие надписи, для ясности, как в Вашей программе на C++.
И ещё у Вас опечатка: не "Кількість чисел", а "Кількість цифр".
b := b + 1 можно заменить на inc(b).

Исправленная программа:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n, b: integer;
begin
  writeln('Програма, що пiдраховує кiлькiсть цифр у введеному цiлому числi');
  write('Введiть число: ');
  readln(n); 
  repeat
    n := n div 10;
    b := b + 1
  until n = 0;
  write('Кількість цифр = ', b);
  readln
end.

@Kolya Moroz · 21.02.2020, 17:23 **[ТС]**

Большое спасибо !!!

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

Перевести Код из С на Паскаль ( я перевёл только ошибка при выводе )

Решение

Решение

@Kolya Moroz 23 / 23 / 0 Регистрация: 15.02.2020 Сообщений: 97
	21.02.2020, 17:23 [ТС]
	Большое спасибо !!! 1