Question

На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.

Answer 1

var
  t,s:integer;

begin
  s:=0;
  repeat
    read(t);
    if (t mod 13=0) and (t mod 10=7) then s:=s+t
  until t=0;
  Writeln(s)
end.

Answer 2

ок, слушай я ее уже спрашивал вы можете ее найти у меня или нет, просто я новичок.)

Answer 3

https://znanija.com/task/27509048

Answer 4

вот ссылочка)

Answer 5

Найти могу, а вот решить - нет. Я не программирую "черепашек", "роботов" и других подобных ГРИС - как бы уже перерос этот "детсад".

Answer 6

а знаешь кого-нибудь кто мог бы?

Answer 7

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->(x mod 13=0) and (x mod 10=7)).Sum());
end.

Answer 8

Можете сделать вот это:
https://znanija.com/task/27509048 ?