Написать программу, которая находит все двузначные числа которые делятся на n.Pascal.
var
n, i : integer; // объявляем переменные
begin
write(‘Введите число: ‘); // выводим строку на экран
readln(n); // считываем значение, введенное с клавиатуры
for i := 10 to 99 do // перебираем все двузначные числа
begin
if (i mod n = 0) then writeln (i); // если число i без остатка делится на n выводим его на экран
end
Найти все двузначные числа, которые делятся на n и содержат в себе цифру n
P.S. написать программу в Паскале через цикл while
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
Выберите правильный вариант выражения, составьте с ним предложение.
Две новые столовые / две новых столовых; две ученические тетради / две ученических тетради; добрые три часа / добрых три часа; каждые два часа / каждых два часа; три большие дома / три больших дома; три лисьи шапки / три лисьих шапки; целые четыре месяца / целых четыре месяца; четыре высокие горы /четыре высоких горы.
Выберите правильную форму глагольного или именного управления.
Вершить судьбами – вершить судьбы; выйти с трамвая – выйти из трамвая; ехать на трамвае – ехать трамваем – ехать в трамвае; ждать поезд – ждать поезда; игнорировать на ухаживание – игнорировать ухаживание; контроль над производством – контроль за производством; любительница печения пирогов – любительница печь пироги; наблюдать за больным – наблюдать больного; не купить спички – не купить спичек; описывается о жизни – описывается жизнь; оплачивать за проезд – оплачивать проезд; отзыв о дипломной работе – отзыв на дипломную работу; памятник Пушкину – памятник Пушкина; подчеркнуть о необходимости – подчеркнуть необходимость; по окончании работ – по окончанию работ; превосходство над другими – превосходство перед другими; предел терпения – предел терпению; преимущество перед соперником – преимущество над соперником; прийти из армии – прийти с армии; продавать за три рубля – продавать по три рубля; разведка на нефть – разведка нефти; способен на жертвы – способен к жертвам; тосковать по другу – тосковать о друге; уверенность в победу – уверенность в победе; удостоен наградой – удостоен награды; характерен демократу – характерен для демократа; характеристика ученика – характеристика на ученика.
Z1. Циклы и условные операторы. Простейшие задачи
Напишите в комментариях к этой записи консольные приложения для решения этих задач, укажите также код задачи. Пример решения.
Решены задачи: 1-9, 12. Не решены: 10-11, 13.
Задачи
Z1.1. Вывести на экран все целые числа от 100 до 200, кратные трем.
Z1.2. Вывести на экран все целые числа от a до b, кратные некоторому числу c.
Z1.3. Найти сумму положительных нечетных чисел, меньших 50.
Z1.4. Найти сумму целых положительных чисел из промежутка от a до b, кратных четырем.
Z1.5. Составить программу поиска четырехзначных чисел, которые при делении на 47 дают в остатке 43, а при делении на 43 дают в остатке 37.
Z1.6. Составить программу поиска четырехзначных чисел, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111.
Z1.7. Определить количество натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15. Подсказка.
Z1.8. Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n (0 ˂ n ˂= 27).
Z1.9. Найти:
а) все двузначные числа, сумма квадратов цифр которых делится на 13;
б) все двузначные числа, обладающие следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова искомое число.
Z1.10. Найти все двузначные числа, которые делятся на n или содержат цифру n.
Z1.11. Найти:
а) все трехзначные числа, чьи квадраты оканчиваются тремя цифрами, которые и составляют искомые числа;
б) все трехзначные числа, кратные семи и у которых сумма цифр также кратна семи.
Z1.12. Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем и оканчивающихся на 2, 4 и 8.
Z1.13. Дано натуральное число.
а) Получить все его делители.
б) Найти сумму его делителей.
в) Найти сумму его четных делителей.
г) Определить количество его делителей.
д) Определить количество его нечетных делителей.
е) Определить количество его делителей. Сколько из них четных?
ж) Найти количество его делителей, больших d.
NEW: Наш Чат, в котором вы можете обсудить любые вопросы, идеи, поделиться опытом или связаться с администраторами.
Паскаль. Решить через while. Найти все двузначные числа, которые делятся на n и содержат в себе цифру n
Var
A,N,C:byte;
B:boolean;
Begin
B:=false;
Write(‘N = ‘);ReadLn(N);
A:=10;
While A<100 do
Begin
if A mod N = 0 then
Begin
C:=A;
While C<>0 do
Begin
if C mod 10 = N then B:=true;
C:=C div 10
End;
if B then Write(A,’ ‘);
B:=false
End;
A:=A+1
End
End.