Question

15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3. НАПИШИТЕ, ПОЖАЛУЙСТА НА ЯЗЫКЕ PASCAL.ABC.net

Answer 1

Free Pascal:

var count,i,a:integer;

begin

   count := 0;

   for i:=1 to 100 do begin

       while true do begin

           write('Введите натуральное число не больше 300: '); readln(a);

           if (a >= 0) and (a <= 300) then break;

           writeln('Введённое число не учитывается, т.к. не удовлетворяет условиям.')

       end;

       if a = 0 then break;

       if (a mod 7 = 0) and (a mod 10 = 3) then inc(count);

   end;

   write(count)

end.

Answer 2

Ответ:

При выполнении любой из этих команд Робот перемещается на одну клетку соответственно: вверх ↑ вниз ↓, влево ← , вправо →. Если Робот получит команду передвижения сквозь стену, то он разрушится.

Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находится в настоящий момент.

Ещё четыре команды —  это команды проверки условий. Эти команды проверяют, свободен ли путь для Робота в каждом из четырёх возможных направлений:

Answer 3

Вот программа на языке Pascal, которая находит сумму всех чисел, кратных 7 и оканчивающихся на 3, в последовательности натуральных чисел:

pascalCopy code
program SumOfMultiples;
var
  number, sum: integer;

begin
  sum := 0;
  
  repeat
    write('Введите натуральное число (0 для завершения): ');
    readln(number);
    
    if (number > 0) and (number mod 7 = 0) and (number mod 10 = 3) then
      sum := sum + number;
  until number = 0;
  
  writeln('Сумма чисел, кратных 7 и оканчивающихся на 3: ', sum);
end.

Эта программа сначала инициализирует переменную sum нулем, а затем в цикле запрашивает у пользователя натуральные числа. Если введенное число положительное, кратное 7 и оканчивается на 3, оно добавляется к переменной sum. Когда пользователь вводит 0, программа завершает ввод и выводит сумму найденных чисел.