Предмет: Информатика,
автор: 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 ?
Похожие вопросы
Предмет: Математика,
автор: slenderplay12380
Предмет: Математика,
автор: falzeq179
Предмет: Информатика,
автор: Аноним
Предмет: Математика,
автор: BlackOwl
Предмет: Химия,
автор: Jasmin1408