1. Информатика
  2. Написать программу, где вводиться

Написать программу, где вводиться число и находитьяс сумма цифр(паскаль, или lazarus)

ILiveYou ILiveYou    2   21.09.2019 09:20    0

Ответы
nastyabulgakov1 nastyabulgakov1  08.10.2020 06:49
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('сумма цифр: ',abs(ReadInteger('введите число:')).ToString.Select(x->x.ToDigit).Sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aleksandrbersh0 aleksandrbersh0  18.04.2019 09:32
Программирование pasalabc сборка 1829тема одномерные массивыв чем проблема? предположение одноглазого препода: т.к. цикл в цикле нельзя при операторах for использовать...
AilaRait AilaRait  28.05.2019 15:50
Почему pascal не видит символ ; ?...
LiliyaEgor LiliyaEgor  28.05.2019 15:50
1. по данному тексту постройте таблицу. текст в 1970 году в всего было произведено бумаги 4,2 миллионов тон (млн в 1970 году в на душу населения было произведено бумаги...
vinerplay6 vinerplay6  28.05.2019 15:50
A8 производится одноканальная (моно) звукозапись с частотой дискретизации 64 гц. при записи использовались 64 уровня дискретизации. запись длится 5 минут 20 секунд,...
Typre35 Typre35  28.05.2019 15:50
A8 производится двухканальная (стерео) звукозапись с частотой дискретизации 16 кгц и глубиной кодирования 32 бит. запись длится 12 минут, ее результаты записываются...
Danil10031 Danil10031  30.08.2019 22:40
Составте блок схему для решения : program abc; var a,b,i: integer; begin a: =3; b: =1; for i: =1 to 8 do begin b: =2*b; writeln ( количество амеб через ,a, часов ,b);...
nz010 nz010  30.08.2019 22:40
Придумайте свои получения случайных чисел. паскаль....
Заяцэ Заяцэ  30.09.2019 13:30
Составьте программу вычисления в массиве в[1..n] суммы нечетных элементов...
умница633 умница633  30.09.2019 13:30
Что лишнее? берег, рыба тина, рыболов, вода...
ryazhechkina ryazhechkina  30.09.2019 13:30
Запишите в развернутой форме двоичное число 110110²...

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