1. Информатика
  2. Как найти сумму всех чисел

Как найти сумму всех чисел с 40 до 48 в паскаль

яна1767 яна1767    2   26.08.2019 23:50    0

Ответы
yan4enkomaks yan4enkomaks  26.08.2020 10:43
begin  writeln('введите целое число');  readln( a ); x:=a;  s:=0;  while ( x<>0 ) do  begin    s := s + (x mod 10);    x := x div 10;  end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
КастрюлькаПик КастрюлькаПик  21.07.2019 01:20
Дан массив а(n). уменьшить все его элементы на минимальный элемент массива....
lspkorvo lspkorvo  21.07.2019 01:20
Написать программу тест состоящую из пяти произвольных вопросов результат...
ammaa09 ammaa09  21.07.2019 01:20
50 : описать стандартные элементы окна браузера! заранне !...
ГрустныйЛёшенька ГрустныйЛёшенька  02.10.2019 06:30
Сформировать целочисленный массив из 15 произвольных чисел. подсчитать количество элементов исходного массива, значение которых менее его среднего арифметического...
17bazilik17 17bazilik17  02.10.2019 06:30
Запишите алгоритм вычисления площади треугольника, у которого известны две стороны a и b и угол между ними β...
valiente valiente  02.10.2019 06:30
Дано число а заменить это число удвоенным произведением если оно нечетное. скок сижу не могу сделать program xz; var a: integer; begin; writeln ( введите число ); readln (a); if...
али544 али544  25.05.2021 18:38
Как проектируется база данных? Кратко объясните...
sufyanova99 sufyanova99  25.05.2021 18:36
с тэстом по информатике Какое из следующих утверждений используют для раскрытия смысла понятия ИНФОРМАЦИЯ в обыденной жизни? а) последовательность знаков некоторого алфавита б) сведения...
aliska561 aliska561  17.09.2019 10:40
5) в программе описан одномерный целочисленный массив с индексами от 0 до 10. в ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i: =0 to 10 do a[i]:...
anastasiadrobinina anastasiadrobinina  17.09.2019 10:40
Внекотором каталоге хранился файл предисловие.doc, имевший полное имя c: /книга/начало/предисловие.doc. пользователь, находившийся в этом каталоге, поднялся на один уровень вверх,...

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