Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ!!! 1)Дан текст. Определите количество цифр в нем.2)Вывести на экран числа в виде следующей таблицы:41 42 ... 5051 52 ... 6061 62 ... 7071 72 ... 803)Дан текст, в котором имеются цифры. Найдите их сумму.ТЕМА: ВЛОЖЕННЫЕ ЦИКЛЫ​​

Answer 1

Конечно, я могу помочь вам написать программу на языке Pascal для решения задач, которые вы описали. Ниже приведен код на Pascal для каждой из трех задач:

1. Определение количества цифр в тексте:

program CountDigits;

var
  textString: string;
  digitCount, i: integer;

begin
  writeln('Введите текст:');
  readln(textString);

digitCount := 0;

for i := 1 to length(textString) do
  begin
    if (textString[i] >= '0') and (textString[i] <= '9') then
      digitCount := digitCount + 1;
  end;

writeln('Количество цифр в тексте: ', digitCount);
end.

2. Вывод чисел в виде таблицы:

program NumberTable;

var
  i, j: integer;

begin
  writeln('Таблица чисел:');
  for i := 4 to 8 do
  begin
    for j := 1 to 10 do
      write((i - 1) * 10 + j, ' ');

writeln;
  end;
end.

3. Нахождение суммы цифр в тексте:

program SumOfDigits;

var
  textString: string;
  digitSum, i: integer;

begin
  writeln('Введите текст:');
  readln(textString);

digitSum := 0;

for i := 1 to length(textString) do
  begin
    if (textString[i] >= '0') and (textString[i] <= '9') then
      digitSum := digitSum + StrToInt(textString[i]);
  end;

writeln('Сумма цифр в тексте: ', digitSum);
end.

Просто скопируйте каждую программу в среду разработки Pascal (например, Free Pascal) и выполните ее. Вводите текст в консоли, как указано, и получите результат для каждой задачи.