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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

//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;

}