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

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

Задать свой вопрос
2 ответа
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x-gt;xlt;gt;0).Where(x-gt;(x mod 13=0) and (x mod 10=7)).Sum());
end.
Владислав Красносвододцев
Сможете сделать вот это: https://znanija.com/task/27509048 ?
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.
Кирилл Ханьжев
Исполнитель Черепашка перемещается на экране компьютера, оставляя след в виде полосы. В каждый определенный момент знаменито положение исполнителя и направление его движения. У исполнителя существуют две команды:
Кричмарь Камилла
Вперёд n (n целое число) вызывает передвижение Черепашки на n шагов в направлении движения. Вправо m (m целое число) вызывает изменение направления движения на m градусов по часовой стрелке. Запись Повтори k [Команда1 Команда2] значит, что последовательность команд в скобках повторится k раз.
Тамара Феоклистова
Напишите программку для данного исполнителя, которая приведёт к появлению на экране правильного треугольника (у которого все стороны одинаковы).
Игорь Когония
Нельзя в комментах к одной программке писать вопросы по иной.
Варвара
Это нарушение (классифицируется, как мусор) и несколько сходственных нарушений водят к бану.
Виолетта Миндельзон
ок, слушай я ее теснее спрашивал вы можете ее отыскать у меня или нет, просто я новичок.)
Виктор Тичин
https://znanija.com/task/27509048
Руслан Лахути
вот ссылочка)
Николайчик Инна
Отыскать могу, а вот решить - нет. Я не программирую "черепашек", "ботов" и других сходственных ГРИС - как бы теснее перерос этот "детсад".
Штармбранд Артем
а знаешь кого-нибудь кто мог бы?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт