
Проверочная работа. 1)ЗадачаНаписать программу, подсчитывающую количество четных и нечетных цифр
в числе.2)ЗадачаВводится число. Преобразовать его в другое число, цифры которого будут следовать в обратном порядке по сравнению с введенным числом.3)ЗадачаВывести на экран ряд чисел Фибоначчи, состоящий из n элементов.

Ответы на вопрос

Ответ:
1)
var
a: integer;
even,odd: byte;
begin
readln(a);
even := 0;
odd := 0;
while a > 0 do begin
if (a mod 2) = 0 then
even := even + 1
else
odd := odd + 1;
a := a div 10;
end;
writeln('even: ', even);
writeln('odd: ', odd);
end.
2)
var
n, m: longint;
a: byte;
begin
readln(n);
m := 0;
while n>0 do begin
a := n mod 10;
n := n div 10;
m := m*10 + a;
end;
writeln(m);
readln;
end.
3)
var
a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
write(a,' ');
b := 1;
write(b,' ');
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;
readln
end.
Объяснение:






Для каждой из задач предоставлю вам пример программы на языке Python:
Задача 1: Подсчет четных и нечетных цифр
pythondef count_even_odd_digits(number):
even_count = 0
odd_count = 0
for digit in str(number):
if int(digit) % 2 == 0:
even_count += 1
else:
odd_count += 1
return even_count, odd_count
# Пример использования
number = 123456789
even, odd = count_even_odd_digits(number)
print(f"Четных цифр: {even}, Нечетных цифр: {odd}")
Задача 2: Преобразование числа в обратное
pythondef reverse_number(number):
reversed_number = int(str(number)[::-1])
return reversed_number
# Пример использования
number = 12345
reversed_num = reverse_number(number)
print(f"Обратное число: {reversed_num}")
Задача 3: Вывод чисел Фибоначчи
pythondef fibonacci(n):
fib_sequence = [0, 1]
while len(fib_sequence) < n:
next_num = fib_sequence[-1] + fib_sequence[-2]
fib_sequence.append(next_num)
return fib_sequence
# Пример использования
n = 10
fib_sequence = fibonacci(n)
print(f"Первые {n} чисел Фибоначчи: {fib_sequence}")
Вы можете использовать эти программы как отправную точку и адаптировать их под ваши конкретные требования. Если у вас возникнут дополнительные вопросы или нужна дополнительная помощь, пожалуйста, дайте знать!


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili