На вход программе подаётся последовательность натуральных чисел. признак конца ввода - ноль. напишите программу, которая находит сумму трёхзначных чисел, кратные трём и последняя цифра которых равна 7. числа не превосходят 1. массивы не использовать.
, !
можно на паскале, желательно на питоне 3​

ответ:

ок) так много ) я решу)

ты немного непонятно написал условие, я написал два

1) если нужно посчитать сумму трёхзначных чисел которые заканчиваются на 7 и делятся на 3 без остатка

sum = 0

n = int(input))

while n ! = 0:

if len(str(n)) == 3 and n % 3 == 0 and n % 10 == 7:

sum += n

n = int(input))

print(sum)

2) если нужно посчитать сумму чисел которые либо трёхзначные либо заканчиваются на 7 либо кратны 3

sum = 0

n = int(input))

while n ! = 0:

if len(str(n)) == 3 or n % 3 == 0 ot n % 10 == 7:

sum += n

n = int(input))

print(sum)

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.