Shipoopi8
Shipoopi8
24.05.2023
?>

ИНФОРМАТИКА.пишите развернуто​

Информатика
Ответить

Ответы

panasenko68
panasenko68
24.05.2023
Program pr1;
var ch:integer; sum:byte;
(*рекурсия нахождения суммы цифр числа*)
function f_sum(ch:integer):integer;
begin
if ch=0 then f_sum:=0
else f_sum:=(ch mod 10) +f_sum(ch div 10);
end;
begin
writeln('Введите число');
readln(ch);
sum:=f_sum(ch);
writeln('Сумма цифр- ',sum);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

ИНФОРМАТИКА.пишите развернуто​
Ваше имя (никнейм)*
Email*
Комментарий*

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

hvostna23
Для какого из указанных значений числа х ложно выражение не (х> 4) или (х≥6) 1) 3 2) 4 3) 5 4) 6
Автор: hvostna23
lovel24
Сколько девочек 1100102 процент и 10102 мальчиков сколько учеников в классе. написать с решением?
Автор: lovel24
vera-classic75
Внеси правильные ответы в таблицу. По серпантинной дороге едут 8 автобусов с туристами из разных стран: Норвегии(Н), Англии (А), Германии (Г), Франции (Ф), России (Р), Испании (И), Казахстана (К...
Автор: vera-classic75
PushkinaKurnosov984
мне Буду очень благодарен​
Автор: PushkinaKurnosov984
andreyshulgin835
Исполнитель черепашка перемещается на экране компьютера, оставляя след в виде линии. в каждый конкретный момент известно положение исполнителя и направление его движения. у исполнителя существует две...
Автор: andreyshulgin835
zakaz
12. Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки. Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может....
Автор: zakaz
Ананян Иван1281
Соператора for вывести на экран: 1) целые числа 1, 3, 5, 21 в строку через пробел 2) целые числа 10, 12, 14 60 в обратном порядке в столбик 3) кубы всех целых чисел из диапазона от a до b (a< ...
Автор: Ананян Иван1281
myliar21585356
Для хранения текста в восьмибитовой кодировке требуется 10кбайт. сколько страниц займёт этот текст, если на странице размещается 40 строк 64 символа в строке. с пояснением .
Автор: myliar21585356
valerii-borisovich550
Задача на Требуется вычислить количество N-значных чисел в системе счисления с основанием K, таких что их запись не содержит двух подряд идущих нулей. Ограничения: 2 <= K <= 10, N + K <= 18...
Автор: valerii-borisovich550
Arzieva Abdulmanov1438
Для хранения растрового изображения размером 395×395 пикселей отвели 25 КБ памяти. Каково максимально возможное число цветов в палитре изображения?
Автор: Arzieva Abdulmanov1438
Овсянкина407
Задание 2. Запиши в тетрадь этапы создания общей сетевой папки вОС Windows. (6 этапов)​
Автор: Овсянкина407
optima3559
Определить, существует ли прямоугольный треугольник со сторонами x, y, z. Если – да, вычислить его площадь. В программе питон
Автор: optima3559
Anatolevna1703
Составьте алгоритм, по которому на компьютере будет происходить следующее: в переменную s вводится возраст саши, в переменную м вводится возраст маши. в качестве результата на экран выводится фраза ...
Автор: Anatolevna1703
shchepinasm
Составить код программы функции. x = 0, 0.01..10 y =0.2*(x+2) +sin(x)+ (4*√(n*sin⁡(/3
Автор: shchepinasm
Станислав Валерий1696
Какова глубина цвета, если в рисунке используется 65 536 цветов? 256цветов? 16 цветов? подробно ♥️
Автор: Станислав Валерий1696
▲