Question

ДАЮ 35 БАЛЛОВ,информатика,напишите программу с защитой от неверных чисел.......

Answer 1

Вопрос:

На паскале писать?

Ответ: Проверь сперва

var

 a, s: integer;

begin

 s := 0;

 repeat

   writeln('Введите число: ');

   read(a);

   if (a mod 3 = 0) and (a mod 10 = 9)

     then s += a;

 until a = 0;

 writeln('Сумма: ', s);  

end.