63

Язык «Паскаль АВС» 1. Среди двухзначных чисел найти количество четных чисел. 2.…

18 апреля 2023

Язык «Паскаль АВС» 1. Среди двухзначных чисел найти количество четных чисел. 2. Среди двухзначных чисел найдите те числа, у которых первая цифра четная.3. Среди двухзначных чисел найдите те числа, которые кратны 3 и 4. 4. Среди трехзначных чисел найдите те, у которых все цифры равны. 5. Найдите среди трехзначных чисел симметричные числа. 6. Найдите среди четырехзначных чисел симметричные числа. 7. Найдите все трехзначные числа такие, что сумма цифр равна А, а само число делится на В. А и В вводятся с клавиатуры. 8. Найдите все трехзначные числа такие, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5. 9. Найдите количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается на В, А и В вводятся с клавиатуры. 10. Найдите все трехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. 11. Найдите все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3-остаток 2, при делении на 4-остаток 3, само число делится на 5. 12. Найдите все четырехзначные числа, в которых есть две одинаковые цифры. 13. Найдите сумму всех чисел из промежутка от А до В, кратных 13 и 5, А и В вводятся с клавиатуры. 14. Найдите все симметричные четырехзначные числа. 15. Найдите все трехзначные числа, которые состоят из различных цифр, а их сумма равна А.

категория: информатика



50

program c1; vari,j,z,k: integer; begink: =0; for j: =10 to 99 doif j mod 2=0 then k: =k+1; writeln (k); end.program c2; vari,j,z,k: integer; begink: =0; for j: =10 to 99 doif (j div 10) mod 3=0 then write (j,'); end.program c3; vari,j,z,k: integer; begink: =0; for j: =10 to 99 doif (j mod 3=0) and (j mod 4=0) then write (j,'); end.program c4; vari,j,z,k: integer; begink: =0; for j: =100 to 999 doif (j mod 1000=555) then writeln (',j); end.program c5; vari,j,z,k: integer; begink: =0; for j: =100 to 999 doif (j mod 10)=(j div 100) then write (',j); end.program c6; vari,j,z,k: integer; begink: =0; for j: =1000 to 9999 doif (j mod 10)=(j div 1000) and (j div 10) mod 10)=(j div 100) mod 10) then write (',j); end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...