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

Написать рекурсивную подпрограмму вычисления суммы цифр входящих в состав числа. отправлю 50 руб на киви сразу

azbyka1234567890 azbyka1234567890    3   07.05.2019 22:10    0

Ответы
janat8509 janat8509  07.05.2019 23:00

var a,b,i: integer;

begin

a: =0;

write('введите число ');

read(b);

for i: =1 to b do begin

a: =a+i;

end;

write('сумма равна = ',a);

end.  

7 937 082 20 07 киви  

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ailina26 ailina26  11.06.2019 22:00
Вкакой группе программ находится программа paint?...
Karamelka3467 Karamelka3467  21.09.2019 22:20
Решите на pascale через integer. на до возвести 2 в степень. например 2 в 5 =32 например 2 в 3=8...
MaaximKa228 MaaximKa228  21.09.2019 22:20
5класс, сестре нужно, а я в этом не понимаю. нарисуй блок-схему алгоритмa для решения : проверить, может ли существовать треугольник из углами а, в, с. если сумма углов равна 180...
леле7 леле7  21.09.2019 22:20
Який фрагмент алгоритму називається вкладеним циклом...
Andry211208 Andry211208  21.09.2019 22:20
Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 39х 39 пикселя, если известно, что в изображении используется палитра из...
ilyamaximov514 ilyamaximov514  21.09.2019 22:20
Создать в редакторе текстовый файл, внести в него 10 строк произвольного текста. разработать программу, которая подсчитывает количество цифр, встречающихся в каждой строке, и записывает...
grabon12312 grabon12312  21.09.2019 22:10
Pascalabcnet : ввести и упорядочить последовательность из n натуральных чисел таким об-разом, чтобы она возрастала до середины, а затем убывала....
oksana341 oksana341  21.09.2019 22:10
Вася написал программу (для удобства приводим ее код на трех языках программирования): python: x = int( a = x % 10 b = x // 10 % 10 c = x // 100 % 10 print(a + b + c) pascal: var...
Thfhgdrhd Thfhgdrhd  21.09.2019 20:42
Яким чином визначити, чи вміститься підручник на заданому носії інформації (флешка, діскета, диск, тощо)каким образом определить, поместится учебник на заданом носители информации...
17312 17312  21.09.2019 20:57
Рассчитайте скорость передачи информации, передаваемой в пиксельном виде на монитор с расширением 1024×768, работающий в полноцветном режиме (3 байта на пиксель) с частотой смены...

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