Помогите найти ошибку, пожалуйстаЗАДАЧА:Даны два Больших ЧиСЛа. Проверьте, делится ли их
Помогите отыскать ошибку, пожалуйста
ЗАДАЧА:
Даны два Больших ЧиСЛа. Проверьте, делится ли их творенье на девять.
Формат файла входных данных:
В 2-ух строчках входного файла даны два целых неотрицательных числа, по одному в строке. Запись каждого из них состоит из не более чем 106 цифр.
Формат файла выходных данных:
В единственной строке выходного файла выведите "YES", если творенье данных чисел делится на девять, и "NO" в неприятном случае (без кавычек).
МОЕ РЕШЕНИЕ:
var
n, m: string;
c, i, k, code, sum, sum1, k1, code1: longint;
begin
sum := 0;
readln(n);
for i := 1 to length(n) do
begin
sum := sum + ord(n[i]) - ord('0');
end;
sum1 := 0;
readln(m);
for i := 1 to length(m) do
begin
sum1 := sum1 + ord(m[i]) - ord('0');
end;
if (sum mod 9 = 0) or (sum1 mod 9 = 0) or ((sum mod 3 = 0) and (sum1 mod 3 = 0)) then write('YES') else write('NO');
end.
var n, m:string;
begin
read(n,m)
if(n mod 3 =0)and(m mod 3=0)
then write('yes')
else
if(n mod 9=0) then write('yes')
else
if(m mod 9=0) then write('yes')
else('no')
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.