1. Информатика
  2. Склавиатуры вводится

Склавиатуры вводится двузначное число a. найти сумму его цифр.

anma2 anma2    2   28.03.2019 23:10    1

Ответы
Наполнение Наполнение  07.06.2020 04:15

var a,a1,a2,sum:integer;

begin

readln(a);

sum:=0;

a1:=a mod 10;

a2:=a div 10;

sum:=a1+a2;

writeln(sum);

end. 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alex54789089 alex54789089  18.12.2020 10:47
Установи соответствие: 1 K$1 А Абсолютная ссылка 2 $B56 Б Относительная ссылка 3 G456 В Смешанная ссылка 1 2 3...
watercolour3 watercolour3  18.12.2020 10:46
Нужен рисунок 2021 в кумире...
итлиори итлиори  18.12.2020 10:46
C# Даны три числа, Вывести на экран yes, если можно взять какие-то два и в сумме получить третье​...
chobanu81p08xbb chobanu81p08xbb  02.12.2020 15:08
Сколько открытия файлов и папок вы знаете?​...
artemantonuc artemantonuc  25.07.2019 09:00
Даны натуральные числа а1 а2…аn. признак конца последовательности 0. определить количество и сумму тех членов последовательности, которые делятся на 5 и не делятся...
Даниил5702 Даниил5702  02.07.2020 13:18
решить задачи на языке программирования Delphi. Задача 1. Задан массив A(N,N), заполненный целыми случайными числами из диапазона [-27;28]. Найти произведение ненулевых...
visnevsk visnevsk  02.07.2020 13:19
Даны действительные числа а, b, с (а 0). Полностью исследовать биквадратное уравнение ax4 + bх2 + с = 0 (если действительных корней нет, то должно быть выдано сообщение...
gregsorvenkov gregsorvenkov  02.07.2020 13:32
Возможности сетевых адаптеров и промежуточных сетевых устройств....
Olga200393 Olga200393  02.07.2020 13:29
Отзыв в апп сторе без текста опубликуется?...
ArkhamCity ArkhamCity  02.07.2020 13:48
Дано натуральное число N. Найти наибольшее число М (М 1), на которое сумма цифр в цифровой записи числа N делится без остатка. Если такого числа нет, то вывести слово...

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