1. Информатика
  2. Составьте программу вычисления

Составьте программу вычисления суммы нечетных цифр натурального числа м(паскаль абц)

TearPrincess2 TearPrincess2    3   13.07.2019 07:10    0

Ответы
gggggfdsfgg gggggfdsfgg  18.09.2020 21:26
Var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Eugene1000 Eugene1000  01.05.2020 17:54
Функцию извлечения квадратного корня не использовать. Через основные алгоритмы и псевдокод...
gulyaaxundova gulyaaxundova  01.05.2020 18:19
Построить блок схемы и математическую модель. 1)Массив А (5) задан формулой: х = 4у + 9 Составить блок- схему для нахождения суммы положительных элементов одномерного массива...
esalinder22 esalinder22  01.05.2020 18:19
Могут ли цикл и ветвление присутствовать в программе одновременно или только одна из них?...
вася772 вася772  17.07.2019 23:30
1. написать программу вычисления площади кольца, где исходными данными являются радиусы кольца и отверстия. предусмотреть в программе проверку правильности исходных данных (радиус...
нурбо1 нурбо1  28.08.2019 10:50
Составить алгоритм сложения двух целых чисел b и n, вводимых с клавиатуры. результат сложения записать в виде переменной p. по данному алгоритму написать программу в паскале. алгоритм...
gfsfsdcxz gfsfsdcxz  28.08.2019 10:50
1.сформулировать ,решение которой содержало бы данный фрагмент.записать программу полностью. for i: =1 to 8 do begin b[i] : = a[i]*a[i]; write (b[i], ) end. 2.составить программу для...
leralagbibl leralagbibl  08.11.2020 19:13
Вопрос по истории решить Какой правовой акт впервые закрепил за холопами самостоятельно отвечать за свои поступки? а) Псковская Судная грамота; б) Русская Правда; в) Судебник 1497...
sofalezina975 sofalezina975  08.11.2020 19:13
Лабораторная работа 6 . Морфология листа. Дать характеристику листа. 1. Берёза повислая, 2. Клен, 3 виноград, 4. Инжир...
6г56г 6г56г  08.11.2020 19:13
Запишіть слова фонетичною транскрипцією Ллю, плющ, усміхається, пляма, п’ять, ємність, ґедзь, галуззя, піддашшя, дзвін, сяє, щастя....
gasi20022 gasi20022  08.11.2020 19:13
Чому перемогу у війні здобула Антигабсбурська коаліція?...

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