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

Ответ:

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

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

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