Решаем задачи Абрамян на Паскале. While20
While20. Дано целое число $$N$$ ($$> 0$$). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа $$N$$ цифра «2». Если имеется, то вывести True, если нет — вывести False.
Delphi/Pascal
program While20 ;
N : Integer ;
checkbox : Boolean ;
Write ( ‘Введите число N: ‘ ) ;
checkbox := False ;
while ( N > 0 ) and ( not checkbox ) do
If ( N mod 10 ) = 2 then checkbox := True ;
N := N div 10 ;
Writeln ( checkbox ) ;
Другие задачи из раздела While можно посмотреть здесь.
ВКонтакте ( X )
Facebook ( X )
Кирилл
можно ради забавы ещё break добавить, чтобы при первом совпадении расчеты прекращались правда, бегинэнды добавлять придётся, а это в сумме лишние три строки кода.
При диапозоне integer -32768..32767 (тоесть самый максимум цикл провернётся 5 раз) я не стал использовать break. Вообще не люблю использовать break… теряется наглядность… веселее запихать if в while и смотреть на чём закончился цикл но там совсем наглядность уходит…
Newton
Вариант условия, останавливающий цикл при первом же столкновении с цифрой 2:
while (N > 0) and (not checkbox) do
Источник: coolcode.ru
1. Чему будет равна переменная «c» после выполнения этой программы: a
1. Чему будет равна переменная «c» после выполнения этой программы: a := 28; b := 7; b := a div b + b; c := a mod b + a; Ответ: 2. Чему будет равна переменная «c» после выполнения этой программы: a := 26; b := 6; c := a mod b + b; Ответ: 3. Чему будет равна переменная «c» после выполнения этой программы: a := 28; b := 7; c := a div b + a; Ответ: 4. Чему будет равна переменная «c» после выполнения этой программы: a := 22; b := 4; b := a div b; c := a div b; Ответ: 5. Чему будет равна переменная «c» после выполнения этой программы: a := 26; b := 6; b := a mod b + 4; c := a mod b + 1; Ответ: 6. Чему будет равна переменная «c» после выполнения этой программы: a := 20; b := 3; b := a div b; c := a mod (b + 1); Ответ: 7. Чему будет равна переменная «c» после выполнения этой программы: a := 28; b := 7; b := a mod b; c := a div (b + 1); Ответ:
Источник: shkolnikru.com
Прошу помочь решить следующие задачи (Программирование, Паскаль, операторы div и m…
Прошу помочь решить следующие задачи (Программирование, Паскаль, операторы div и mod):
1) Чему будет равна переменная «с» после выполнения этой программы:
a := 26;
b := 6;
c := a div b + a;
Ответ:
2) Чему будет равна переменная «с» после выполнения этой программы:
a := 24;
b := 5;
b := a mod b + 4;
c := a mod b + 1;
Ответ:
Заранее благодарю
Георгий Матыжев Вопрос задан 22 сентября 2019 в 5 — 9 классы, true»> Поделиться
Паскаль с Нуля. Арифметические действия, DIV, MOD. Урок 3
Источник: matfaq.ru
Вывод целой части и остатка от деления в Паскаль
Операции целочисленного деления и нахождения остатка от деления в Паскаль
В Паскале существует возможность использования трех методов определения кратности числа.
1. С помощью оператора div (целоисчисленное деление). Как это работает?
x := 10 div 2 (переменная x получит значение 5; процессор вычисляет пример 10 / 2 и выдает результат 5)
x := 10 div 3 (переменная x получит значение 3; вычисляется 10 / 3 = 3,33 и отбрасывается дробная часть, такова природа работы оператора div)
x := 10 div 4 (переменная x получит значение 2; 10 / 4 = 2,5 – и опять отбрасывается дробная часть).
2. С помощью оператора mod (остаток от деления).
Тут и понятно, остаток от деления числа, которое полностью делится на делитель, будет равен нулю.
x := 10 mod 2 (переменная x получит значение 0; процессор вычисляет по формуле 10 – ((10 div 2) * 2) = 0, то есть оператор mod возвращает пользователю остаток, который получится в результаты вычитания из делимого числа разницы между первым в сторону уменьшения делящимся нацело на делитель… эмм, надеюсь, понятно. Еще на примерах:
x := 10 mod 3 (переменная x получит значение 1; происходит следующее 10 div 3 = 3 (целое), дальше 10 – 3 (результат) * 3 (делитель) = 1)
x := 10 mod 4 (переменная x получит значение 2; вычисляется 10 – ((10 div 4) * 4)).
Внимательно изучите работу операторов div и mod, они важны для решения задач ГИА по информатике.
3. С помощью функции отбрасывания дробной части числа (не округления, а именно отбрасывания).
trunc(z), где z – вещественное число или математическое выражение.
Примеры:
x := trunc(3.33) (x получит значение 3; «удаляется» дробная часть)
x := trunc(10 / 3) (x получит значение 3, 10 / 3 = 3.33, отбрасываем «,33»)
x := trunc(10 / 2) (x получит значение 5, 10 / 2 = 5 (целое число))
x := trunc(10 / 4) (x получит значение 2, 10 / 4 = 2.5, отбрасываем дробную часть)
Но этот метод не совсем удобен, так как дублирует более понятный в тексте программы div. Таким же образом можно проверить кратность чисел:
Если ((x mod 3) = 0), то число кратно трем (остаток от деления равен нулю).
Если ((x mod 8) = 0), то число кратно восьми и т.д.
Как найти цифру, на которую оканчивается число? Все просто, надо найти остаток от деления числа на 10.
Примеры:
Результатом 150 mod 10 будет число 0, т.к. 150 полностью делится на 10. 0 – это последняя цифра числа.
153 mod 10 вернет 3 (153 – ((153 div 10) * 10); 3 – эта цифра, на которую оканчивается число.
87 mod 10 вернет 7 – последнюю цифру числа.
33 mod 10 вернет 3 и т.д. Попробуйте сами: writeln(33 mod 10);
Источник: easyinformatics.ru
Паскаль 20 деление и остаток 1 чему будет равна переменная c после выполнения этой программы
7 месяцев назад
Чему будет равна переменная «c» после выполнения этой программы:
a = 28
b = 7
b = a % b + 4
c = a % b + 1
Комментарии
% это разделить или процент?
% — остаток от целочисленного деления
0 (0 оценок)
aajafspe 7 месяцев назад
Светило науки — 474 ответа — 0 раз оказано помощи
Ответ:
Объяснение:
b = a % b + 4 # 28 % 7 + 4
c = a % b + 1 # 4 % 4 + 1
Лучшие помощники
За сегодня
Ежедневный Еженедельный Ежемесячный За 3 месяца
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Лёва Середнячок
Мозг Отвечающий
Лёва Середнячок
2022 ВашУрок
Этот сайт использует cookies. Политика Cookies Вы можете указать условия хранения и доступ к cookies в своем браузере.
Источник: vashurok.com