Question

1)Написать программу на языке программирования Паскаль: Вывестиквадраты первых десяти натуральныхчисел.2)Написать программу на языкепрограммирования Паскаль:Подсчитать количество двузначныхчисел, у которых сумма цифр нечетна.3)Написать программу на языкепрограммирования Паскаль: Найти наибольшую цифру натуральногочисла. С клавиатуры вводитсянатуральное число. Найти егонаибольшую цифру. (Например, введеночисло 124653. Наибольшая цифра в нем 6).РЕБЯТ,СРОЧНО НАДО.ХОТЯ БЫ ОДНО ЗАДАНИЕ ПРОШУ❤​

Answer 1

Ответ:

Задание 1:

program Hello;

var i : Integer;

begin

for i := 1 to 10 do

   writeln(i * i);

end.

Answer 2

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

1. Вывод квадратов первых десяти натуральных чисел:

pascalCopy code
program Squares;

var
  i: integer;

begin
  for i := 1 to 10 do
    writeln(i, '^2 = ', i * i);
end.

2. Подсчет количества двузначных чисел, у которых сумма цифр нечетна:

pascalCopy code
program CountNumbers;

var
  count, number, digitSum: integer;

begin
  count := 0;
  
  for number := 10 to 99 do
  begin
    digitSum := (number div 10) + (number mod 10);
    if digitSum mod 2 <> 0 then
      count := count + 1;
  end;
  
  writeln('Количество двузначных чисел с нечетной суммой цифр: ', count);
end.

3. Поиск наибольшей цифры в натуральном числе:

pascalCopy code
program MaxDigit;

var
  number, maxDigit, digit: integer;

begin
  writeln('Введите натуральное число: ');
  readln(number);
  
  maxDigit := 0;
  
  while number > 0 do
  begin
    digit := number mod 10;
    if digit > maxDigit then
      maxDigit := digit;
    number := number div 10;
  end;
  
  writeln('Наибольшая цифра в числе: ', maxDigit);
end.

Просто скопируйте каждую программу в среду разработки Паскаля и запустите ее, чтобы получить результаты. Удачи!