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

Question

Напишите программу, которая в последовательности целых двузначных чисел определяет
сумму чисел, не имеющих цифру 6. Программа получает на вход целые
числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность). ПОМОГИТЕ ПОЖАЛУЙСТА!!

Comments

числа вводим или по рандому?

---

вводим

Answer 1

Program yeah;vara,b:integer;beginwriteln('введите числа ');b:=0;repeatread(a);if (a mod 10<>6) and (a div 10<>6) thenbegin b:=b+a;end;until a=0;writeln(b);end.

Comments

program yeah;
var
a,b:integer;
begin
writeln('введите числа ');
b:=0;
repeat
read(a);
if (a mod 10<>6) and (a div 10<>6) then
begin
b:=b+a;
end;
until a=0;
writeln(b);
end.

---

спасибо) только нужен алгоритмический язык(((