Dimasimakov
27.08.2020 23:15

Для сохранения задания на диске «Сохранения» создайте папку «Математические операторы». Файлы с выполненными заданиями называйте по номеру задания.
Напишите программы, каждая из которых позволяет вводить с клавиатуры натуральное 3-
значное число N и выполняет с ним одно из действий:
1) выводит на экран его цифры - по одной на каждой строке
2) формирует число N1, образованное перестановкой цифр исходного числа в
обратном порядке; например, из числа 123 должно получиться число 321,
3) формирует число N2, полученное перестановкой цифр десятков и единиц.
4) Подсчитывает сумму и произведение цифр введенного числа.
5) Формирует число N2, дописывая в начало числа случайную цифру. (т. е. число уже
будет четырёхзначным).

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
соф29
14.01.2023 11:37
Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.
0,0(0 оценок)
Ответ:
PROvacaTOR1
14.03.2021 21:04
1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('Число четных цифр равно ',
    abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.

Пример
n= 363754345
Число четных цифр равно 3

2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.

program TP70;
uses Crt;
var
  n:longint;
  k,d:byte;
begin
  ClrScr;
  Write('n= '); Read(n);
  n:=abs(n);
  k:=0;
  while n>0 do begin
    d:=n mod 10;
    if d mod 2=0 then Inc(k);
    n:=n div 10
    end;
  Writeln('Число четных цифр равно ',k);
  ReadKey;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота