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

Приложения:

Ответы

Ответ дал: fastboi
0

Вопрос:

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

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

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.

Ответ дал: keavtsovk25
0
На Паскале.И здесь нет проверки от неверных чисел
Ответ дал: keavtsovk25
0
Защиты*
Вас заинтересует