алгоритмы линейной структуры.

[larisakrasa]

Пусть дано натуральное число n. состоящее из шести цифр .Определите число сотен и тысяч в нем . на языке турбо паскаль

[Mandrivnyk]

#include <iostream>

using namespace std;

int main()
{
    int number, thousands, hundreds;
    cout << "Введите шестизначное число:\n";
    cin >> number;
    
    thousands = (number % 10000) / 1000;
    hundreds  = (number % 1000) / 100;
    
    cout << "Число тысяч: " << thousands << "\nЧисло сотен: " << hundreds << endl;
    return 0;
}

[larisakrasa]

не могли бы вы дописать слова турбо паскаля , программа для построения блок-схем не строить блок-схему для данной программы !

[Alex11223]

Что дописать? Это С++. Думаю переписать этот алгоритм на Паскале не составит вам труда.
= — эквивалентно := (присвоить значение) в Паскале
% — остаток от деления, mod