landlord15. 2 Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3. НАПИШИТЕ, НА ЯЗЫКЕ PASCAL. ABC. net
ответы: 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.
3
boobsЧтобы ответить необходимо зарегистрироваться.
