Вопрос по информатике:
По информатике пожалуйста. Запишите в Pascale
Задача 4. Дано целое число А. Определить делиться ли число А на 3. (Используем метод
последовательного вычитания чисел).
Задача 5. Дано целое число А. Определить остаток от деления числа А на 3. (Используем
метод последовательного вычитания чисел).
- 09.02.2018 21:57
- Информатика
- remove_red_eye 18961
- thumb_up 46
Ответы и объяснения 1
Var A:integer;
Begin
Write('A = ');
Read(A);
While A >0 do
Begin
A:=A-3;
End;
if A=0 then Write('А кратно трём')
else Write('А не кратно трём')
End.
Var
A:integer;
Begin
Write('A = ');
Read(A);
While A >3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от деления А на 3: ',A);
End.
- 01.01.1970 00:00
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.