По информатике пожалуйста. Запишите в PascaleЗадача 4. Дано целое число А.
По информатике пожалуйста. Запишите в Pascale
Задачка 4. Дано целое число А. Найти делиться ли число А на 3. (Используем способ
последовательного вычитания чисел).
Задача 5. Дано целое число А. Найти остаток от деления числа А на 3. (Используем
способ поочередного вычитания чисел).
Даниил Шмагленко
Циклы-то использовать можно?
Илюшка Харейдинов
да
1 ответ
Вечкаева
Ольга
Работает при условии, что А - не отрицательное число:
Var A:integer;
Begin
Write('A = ');
Read(A);
While A gt;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 gt;3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от дробления А на 3: ',A);
End.
Var A:integer;
Begin
Write('A = ');
Read(A);
While A gt;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 gt;3 do
Begin
A:=A-3;
End;
WriteLn('Остаток от дробления А на 3: ',A);
End.
Борис
спасибо
Ергольский
Семён
А как выделить, что это наихороший ответ?
Данил Рогозинков
Через некое время, либо после прибавленья второго ответа кнопка появится
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов