Предмет: Информатика,
автор: Manvey
На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 13 и последняя цифра которых равна 7. Числа не превосходят 10000. Массивы не использовать.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
ок, слушай я ее уже спрашивал вы можете ее найти у меня или нет, просто я новичок.)
Автор ответа:
0
https://znanija.com/task/27509048
Автор ответа:
0
вот ссылочка)
Автор ответа:
0
Найти могу, а вот решить - нет. Я не программирую "черепашек", "роботов" и других подобных ГРИС - как бы уже перерос этот "детсад".
Автор ответа:
0
а знаешь кого-нибудь кто мог бы?
Автор ответа:
0
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->(x mod 13=0) and (x mod 10=7)).Sum());
end.
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->(x mod 13=0) and (x mod 10=7)).Sum());
end.
Автор ответа:
0
Можете сделать вот это:
https://znanija.com/task/27509048 ?
https://znanija.com/task/27509048 ?
Интересные вопросы
Предмет: Информатика,
автор: Dino901
Предмет: Українська мова,
автор: victordocenko325
Предмет: Биология,
автор: alser4921
Предмет: Математика,
автор: окружайшимир
Предмет: Математика,
автор: ник969