1. Информатика
  2. Дано трехзначное число.

Дано трехзначное число. вывести последовательно на экран сумму его цифр, произведение его цифр "число перевертыш"

margaritrw margaritrw    2   05.07.2019 09:30    0

Ответы
131133 131133  28.07.2020 21:18
Var
a,b,c,d:longint;
begin
readln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
writeln(b+c+d);
writeln(b×c×d);
writeln(d,c,b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alenkaviktorov alenkaviktorov  16.10.2021 22:05
Перевести из Паскаля на с++ uses crt;const max=100;var a:array[1..max] of integer; n,i,k:byte;beginclrscr;repeatwrite( Размер массива n= );readln(n);until n in [1..max];writeln(...
kristina33452 kristina33452  16.10.2021 21:57
Задание 6. На рис. 1, 2, 3, 4 изображены виды топологии компьютерных сетей. 1. Определите, к каким топологиям они относятся. 2. Сравните преимущества и недостатки...
jovanny1607 jovanny1607  02.10.2019 04:10
Запросы к поисковому серверу. для каждого запроса указан его код – соответствующая буква от а до г. запишите в таблицу коды запросов слева направо в порядке убывания...
даладно30раз даладно30раз  02.10.2019 04:10
Вкаком из ниже высказываний результат будет ложным (0)? 1 или 0 (1 или 0) и 1 1 и 1 0 и 1...
kurnikova2 kurnikova2  02.10.2019 04:10
Сообщение занимает две страницы и содержит 1/16 кбайт информации. на каждой странице записано 256 символов. какова мощность использованного алфавита?...
Angelina07111 Angelina07111  02.10.2019 04:10
Все в паскале соствьте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый и последний элементы....
tratatya tratatya  02.10.2019 04:10
Дано натуральное число n. вычислить: (c постусловием через repeat) (pascal) s= 1! + 2! + 3! + + n! (n 1)....
qd1337 qd1337  02.10.2019 04:10
Для какого из перечисленных ниже названий животных ложно высказывание: (первая буква согласная и вторая буква гласная) или третья буква согласная? 1) василиск 2)...
Sniper2016 Sniper2016  02.10.2019 01:21
Какая идея реализована в интерфейсе windows? ? ​...
kolody71p0aje8 kolody71p0aje8  20.04.2020 14:03
Переведите программу о сдаче с языка Кумир на язык Паскаль алг Сдача нач . цел s,k500,k100,k50,k10 . ввод s . k500:=div(s,500) . s:=mod(s,500) . k100:=div(s,100)...

Популярные вопросы