15.2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3.
НАПИШИТЕ, ПОЖАЛУЙСТА НА ЯЗЫКЕ PASCAL.ABC.net
НАПИШИТЕ, ПОЖАЛУЙСТА НА ЯЗЫКЕ PASCAL.ABC.net
More Questions From This User See All
Answers & Comments
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.
Ответ:
При выполнении любой из этих команд Робот перемещается на одну клетку соответственно: вверх ↑ вниз ↓, влево ← , вправо →. Если Робот получит команду передвижения сквозь стену, то он разрушится.
Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находится в настоящий момент.
Ещё четыре команды — это команды проверки условий. Эти команды проверяют, свободен ли путь для Робота в каждом из четырёх возможных направлений: