Question

Задания по Pascal №1 найти все двузначные числа, такие, что сумма цифр равна A, а само число делится на B. A и B вводятся с клавиатуры.№2 найти сумму всех чисел из промежутка от A до B, кратных 5. A и B вводятся с клавиатуры.

Answer 1

1. Вар сам напиши.
begin
readln(a,b);
For i:=10 to 99 do
if (i mod 10 + i div 10=a) and (i mod b=0) then writeln(i);
end.

2. Вар сам напиши,
begin
readln(a,b);
for i:=a to b do
if a mod 5 then writeln(i);
end.

Answer 2

Задание по Pascal №1

Для решения задачи по поиску всех двузначных чисел, у которых сумма цифр равна A, а само число делится на B, можно использовать следующий алгоритм:

1. Сначала нужно запросить у пользователя два числа A и B с помощью функции Readln. 2. Затем можно создать цикл, который будет перебирать все двузначные числа от 10 до 99. Для каждого числа проверяем два условия: сумма цифр равна A и число делится на B. 3. Если оба условия выполняются, то это число подходит и можно вывести его на экран с помощью функции Writeln.

Пример кода на Pascal:

program TwoDigitNumbers;
var
  A, B, num, digitSum: integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  
  Writeln('Двузначные числа, сумма цифр которых равна ', A, ' и которые делятся на ', B, ':');
  
  for num := 10 to 99 do
  begin
    digitSum := num mod 10 + num div 10;
    if (digitSum = A) and (num mod B = 0) then
      Writeln(num);
  end;
end.

Задание по Pascal №2

Для решения задачи по нахождению суммы всех чисел из промежутка от A до B, кратных 5, можно использовать следующий алгоритм:

1. Сначала нужно запросить у пользователя два числа A и B с помощью функции Readln. 2. Затем можно создать переменную sum, в которую будем аккумулировать сумму чисел. 3. Далее можно создать цикл, который будет перебирать все числа от A до B. Для каждого числа проверяем, делится ли оно на 5 без остатка. 4. Если число делится на 5, то добавляем его к сумме sum. 5. По окончании цикла выводим значение sum на экран с помощью функции Writeln.

Пример кода на Pascal:

program SumOfMultiples;
var
  A, B, num, sum: integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Write('Введите число B: ');
  Readln(B);
  
  sum := 0;
  
  for num := A to B do
  begin
    if num mod 5 = 0 then
      sum := sum + num;
  end;
  
  Writeln('Сумма всех чисел от ', A, ' до ', B, ', кратных 5: ', sum);
end.

Надеюсь, эти решения помогут вам выполнить задания по Pascal! Если у вас возникнут еще вопросы, не стесняйтесь задавать.