** вход программе подаётся последовательность натуральных чисел. Признак конца ввода –...

Question

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

Answer 1

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

Comments

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

Answer 2

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.

Comments

Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде линии. В каждый конкретный момент известно положение исполнителя и направление его движения. У исполнителя существуют две команды:

---

Вперёд n (n – целое число) – вызывает передвижение Черепашки на n шагов в направлении движения. Направо m (m – целое число) – вызывает изменение направления движения на m градусов по часовой стрелке. Запись Повтори k [Команда1 Команда2] означает, что последовательность команд в скобках повторится k раз.

---

Напишите программу для данного исполнителя, которая приведёт к появлению на экране правильного треугольника (у которого все стороны равны).

---

Нельзя в комментариях к одной программе писать вопросы по другой.

---

Это нарушение (классифицируется, как спам) и несколько подобных нарушений ведут к бану.

---

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

---

https://znanija.com/task/27509048

---

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

---

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

---

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