Question

Составьте блок-схему и программу для решения задачи. Найдите и выведите на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.

Answer 1

Если писать по вашему условию то будет так

var     i,a,b:integer; begin   For i:=10to99doBegin   a:=(i div10);   b:=(i mod10);   if(3*(a+b))div(a+b)=2  thenwrite(i,' ');   End;   readln; end. но я что то не совсем понял, как может такое быть, если взять 1+3 = 4 *3 = 12.. все увел. в 3 раза..

Answer 2

Задача: Найти и вывести на экран все двузначные числа, сумма цифр которых при умножении на 3 увеличивается в 2 раза.

Для решения этой задачи можно использовать следующий алгоритм:

1. Создать цикл, который будет перебирать все двузначные числа от 10 до 99. 2. Внутри цикла разделить текущее число на десять и получить остаток от деления на 10, чтобы получить первую и вторую цифры числа. 3. Просуммировать эти две цифры и умножить сумму на 3. 4. Проверить, равна ли удвоенная сумма цифр числа полученному значению. 5. Если равны, вывести число на экран.

Блок-схема:

  +---------------------+
  | Начало программы    |
  +---------------------+
              |
              v
  +---------------------+
  | Цикл от 10 до 99    |
  +---------------------+
              |
              v
  +---------------------+
  | Получить цифры числа |
  +---------------------+
              |
              v
  +---------------------+
  | Просуммировать цифры|
  +---------------------+
              |
              v
  +---------------------+
  | Умножить сумму на 3 |
  +---------------------+
              |
              v
  +---------------------+
  | Проверить условие   |
  +---------------------+
              |
              v
  +---------------------+
  | Вывести число       |
  +---------------------+
              |
              v
  +---------------------+
  | Конец программы     |
  +---------------------+

Программа на языке Pascal:

program findNumbers;
var
  number, digit1, digit2, sum: integer;
begin
  for number := 10 to 99 do
  begin
    digit1 := number div 10;
    digit2 := number mod 10;
    sum := digit1 + digit2;
    if sum * 3 = 2 * sum then
      writeln(number);
  end;
end.

Эта программа будет перебирать все двузначные числа от 10 до 99, суммировать их цифры, умножать сумму на 3 и проверять, равна ли удвоенная сумма полученному значению. Если равны, то число будет выведено на экран.

Примечание: Блок-схема и программа представлены в общем виде и могут быть адаптированы для различных языков программирования.