1. Информатика
  2. Знайти суму і добуток цифр двозначного

Знайти суму і добуток цифр двозначного числа, яке вводить користувач. В программе Паскаль

БПАНган БПАНган    1   24.03.2020 09:55    16

Ответы
markzastawa markzastawa  12.10.2020 03:37

var

 x, n, n1: integer;

begin

 Writeln('Введите число: ');

 Read(x);

 if (x > 9) and (x < 100) then

 begin

   n := (x div 10) + (x mod 10);

   n1 := (x div 10) * (x mod 10);

   Writeln('Sum:= ', n, ' Proizved:= ', n1);

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Pyli03032004 Pyli03032004  05.08.2019 19:20
Кто являлся первым праграмистом чарльз бэббидж ,герман холлерит, ада августа лавлейс, блез паскаль...
Оpiggyugrs Оpiggyugrs  31.03.2020 15:17
Запишите выражение на языке Паскаль(8+t) во второй степени​...
ангел813 ангел813  31.03.2020 15:14
Створити проєкт футбол в скретчі. футболіст повинен рухотися відповідно до натиснутих стрілок на клавіатурі. Треба додати м яч який буде змінювати своє положення коли футболіст...
amankeldievan amankeldievan  23.03.2020 20:11
((( X != Y) != Z) || X) = 0 при каких значениях X, Y и Z? X = 0, Y = 0, Z = 0 X = 0, Y = 0, Z = 1 X = 0, Y = 1, Z = 0 X = 0, Y = 1, Z = 1 X = 1, Y = 0, Z = 0 X = 1, Y = 0, Z...
panteleevpetr67 panteleevpetr67  23.03.2020 20:17
1. Составить таблицу истинности логического выражения (A & B)↔(¬A & B) XOR B 2. Построить логическую схему функции ¬(A & B) v (¬(BvA))...
Angelina111555 Angelina111555  03.04.2021 07:17
Задание 1. Создать сноски в тексте, используя инструмент Вставить сноску в ленте Ссылки .Алгоритма работы:Установите курсор на том месте, где необходимо вставить сноску. ​...
odarka1596 odarka1596  03.04.2021 07:37
Составь слова, используя буквы одного цвета. EEСИРдMБKAAЯEHHНЛПHЫ​...
Методист228 Методист228  03.04.2021 07:52
Составить алгоритм определяющий максимальное значение из 2-х целых чиселал алг максимум нач цел а,в,max вывод введите два целых числа ввод а,в если а в max:=a иначе max:=в все...
vania666 vania666  03.04.2021 07:54
Описано функцію для визначення більшого з двох чисел. Як використати що функцію для визначення найбільшого з трьох чисел x, y, z? def m(a,b) else k=b return k...
ьапттыт ьапттыт  03.04.2021 08:04
Числа 15, 159, 468 и 2567 с волшебного Чёрного ящика превратились в 51, 951, 864 и 7652. Запишите алгоритм превращения...

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