1. Информатика
  2. решить через ! var a,b,x,s,p:

решить через !
var a,b,x,s,p: integer;
begin writeln(' ввести х');
readln(x);
тут нужно что то написать ;
writeln(' сумма цифр=' ‚s);

МорскойКот МорскойКот    2   13.12.2019 14:58    1

Ответы
Miranny Miranny  10.10.2020 20:36

var

 a, b, x, s, p: integer;

begin

 writeln(' Ввести х');

 readln(x);

 s := 0;

 x := Abs(x); { защита от ввода отрицательных }

 while x > 0 do

 begin

   s := s + x mod 10;

   x := x div 10

 end;

 writeln(' Сумма цифр=', s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
School13kursk School13kursk  17.10.2019 11:53
Эта память хранит данные, которые никогда не потребуют изменения1)кеш-память2) винчестер3) озу4) пзу​...
ilyadmitriev0 ilyadmitriev0  17.10.2019 11:54
Проверить истинность высказывания точка с координатами x y лежит в четвертой четверти pascal...
lenaivashenko16 lenaivashenko16  17.10.2019 11:57
Написать письмо другу на тему музей на француз​...
anyakhrebtova anyakhrebtova  17.10.2019 11:58
Как представить число 25 в двоичной...
Ppoligoon Ppoligoon  26.03.2021 14:52
Составте программу по вычислению значений функции с использованием рекурсии ​...
tetyanavasil tetyanavasil  18.03.2020 20:44
ответить на во Определите количество информации, содержащейся в следующем тексте (кавычки указывают начало и конец текста и при подсчете количества информации не учитываются):...
VanyaKEKEP VanyaKEKEP  18.03.2020 20:40
Составьте программу вычисления суммы элементов одномерного массива A(N), встречающихся в массиве B(N) ровно два раза. pascalABC...
Афооня Афооня  18.03.2020 20:39
ИНФОРМАТИКА!1.Что получится в результате выполнения алгоритмов. Записать ответ.a:=5b:=4c:=a-bесли (a 0) или (b 0). то . . x:=3*a+2*c. иначе. . x:=a-3*bвсеa:=9b:=2c:=8если (a b)...
konoval1i konoval1i  18.03.2020 20:27
Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов A(N), B(N) из числа принадлежащих отрезку (C,D) Язык PascalABC...
Софочкакошечка13 Софочкакошечка13  11.03.2019 19:18
Дан произвольный треугольник авс. у для которого определен следующий набор характерных параметров: а, b, с — стороны треугольника; а, b, у — углы (в градусах); h — высота, опущенная...

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