Есть ответ 👍

Дано натуральное число. определите сумму цифр в нем

199
386
Посмотреть ответы 3

Ответы на вопрос:


Var a,s: integer; begin readln(a); s: =0; while a> 0 do   begin   s: =s+a mod 10;   a: =a div 10;   end; writeln('s = ',s); end. пример: 13854 s = 21

Разделить на 2 и умножить число которое получилось

Горячие клавиши инструменты: a — аэpогpаф (airbrush) в — кисть (brush) с — рамка (crop) e — ластик (eraser) f — режим (окно/весь экpан с меню/весь экpан без меню) g — гpадиент (gradient) h — рyка (hand) i — пипетка (eyedropper) k — заливка (paint bucket) l — лассо (lasso) м — область (marquee) n — линия (line) o — тониpование (toning tools) p — каpандаш (pencil) q — быстpая маска (quick mask) r — фокyс (focus tools) s — штамп (stamp) t — палитpа контypы (path) u — палец (smudge tool) v — пеpемещение (move) w — волшебная палочка (magic wand) y — текст (text) z — масштаб (zoom) x — поменять местами фоновый и основной цвета d — сбросить цвет/фон в черный и белый [ - пpедyдыщая кисть ] — следyющая кисть

Популярно: Информатика