Question

. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность через repeat until

Answer 1

//FPC 2.6.4
var
sum, n: integer;
begin
repeat
readln (n);
if (n mod 10 = 6) and (n mod 6 = 0) then inc(sum, n);
until n=0;
write (sum);
readln();
end.

#Python 3.6.0
summ, n = 0, input().split()
for i in n:
  if (int(i)%10==6) and (int(i)%6==0): summ+=n;
print (summ)

//Borland C++ 10
#include <iostream.h>
using namespace std;
int main(){
int sum=0, n;
do{cin>>n; if((n%10==6) && (n%6==0)) sum+=n;}while(n!=0);
cout>>sum;
return 0;
}