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

Составьте программу по представленной блок-схеме

Yana0865 Yana0865    2   27.10.2019 18:07    4

Ответы
olyakak00Fokcu olyakak00Fokcu  10.10.2020 09:54

Var S, N: integer;

Begin

 ReadLn(N);

 S := 0;

 while n > 10 do

   begin

     S := S + N mod 10;

     N := N div 10;

   end;

 WriteLn(S)

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nasowmza nasowmza  07.04.2019 15:45
Есть сайт,где добавлены 2 гиперссылки к html-документам.не могу понять: как сделать кнопку из гиперссылки, чтобы,если я нажала на документа, появились кнопка вернуться...
olga7882 olga7882  07.04.2019 15:42
Написать программу на языке паскаль для решения уравнения 2x+5=10+3x....
topalinskaya topalinskaya  07.04.2019 15:37
Дан одномерный массив. необходимо вычислить количество элементов массива, больших заданного числа а. (ассемблер)...
камкозавра камкозавра  07.04.2019 15:36
Что делать если не новые бравлеры в brawl stars?...
lolkek3023 lolkek3023  21.09.2019 19:30
Система видеообработки предназначена для приема видеоданных с нескольких источников, сжатия их и передачи на сервер хранения данных для записи одним потоком. система...
TimurChik2100 TimurChik2100  21.09.2019 19:30
Какой вид информационного процесса является основным при работе с медицинской информацией? 1) поиск 2) ввод 3) вывод 4) хранение...
yuriayato yuriayato  21.09.2019 19:30
Яв настройках взял графический ключ как только вышел и сразу его забыл что делать (я зажал кнопку вкл. и громкости у меня зашло в меню) там есть: factory used spreadtrum...
tanyakozina00 tanyakozina00  21.09.2019 19:30
98 ! в ,! 1)введите массив из 5 элементов с клавиатуры и найдите общее количество элементов,которые оканчиваются на 8 и делятся на 3. 2)заполните массив случайными...
яяяяяяяяяяяяяя22222 яяяяяяяяяяяяяя22222  21.09.2019 19:30
Паскаль. составить блок-схему к программе, . var a,b,h,eps,s1,s2,s: real; n,i: integer; function f(x: real): real; begin f: =exp(2*x)-2*x*x; end; begin readln(a,b,eps);...
olenanuchajj8 olenanuchajj8  21.09.2019 19:30
:определить, является ли заданное натуральное число простым числом. формат ввода: на вход подается натуральное число n не превосходящих 30000. формат вывода: yes...

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