1. Информатика
  2. Составить программу, подсчитывающую

Составить программу, подсчитывающую сумму вводимых с клавиатуры чисел ,если количество чисел заранее неизвестно, но известно, что последнее число равно 0 !

белка2010 белка2010    2   18.07.2019 18:30    1

Ответы
snowprincss snowprincss  03.10.2020 07:25
Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
inc(s, x);
until x = 0;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
apuha2003p07yqc apuha2003p07yqc  18.08.2019 19:30
Составить программы на языке си 1)вводить различные числа. когда будет введен 0, то программа выходит из цикла. 2)вводим любое число с клавиатуры и нужно определить является...
tray5o3 tray5o3  26.06.2019 14:50
На странице 10 рисунков по 650 кбайт каждый. объем текста 4000 символов. кодировка asc ||. найти объем в мб и время за которое загрузится страница при скорости 256 кбит/с....
kseny07 kseny07  26.06.2019 14:50
Все эффекты анимации делятся на 4 группы и писать надо вот вам пример: 1.вхид-объект отсутствует на слайде с эффекта появляется 2.видилення- 3.вихид- 4.шлях перемещения нужно...
vkonareva vkonareva  25.12.2020 13:52
3D-модулінің колдану аясын аныкта...
алхожа алхожа  25.12.2020 13:53
Мосты и острова. Карта ниже показывает острова, представленные каждым кругом. Чтобы путешествовать между ними, бобру нужно построить несколько мостов. Числа, указанные на каждом...
рана7 рана7  07.05.2020 10:30
1. Особенность мультимедийных продуктов: 1) возможность интерактивного взаимодействия 2) наличие текста 3) наличие числовых выражений 4) наличие графических изображений 2. Компьютер,...
Ruta12340 Ruta12340  09.12.2019 22:17
Напишите, , программу в паскале цикл for...
sashaprofatilo sashaprofatilo  09.12.2019 22:18
Написать программу на фортране. определить является ли заданная квадратная матрица 5-го порядка ортонормированный, то есть такой, в которой скалярное произведение в каждой пары...
Ka4erga3000 Ka4erga3000  09.12.2019 22:23
Найдите значения логических выражений: (1 /\ 1)  (1 \/ 0) = ((1 ~ 0) \/ 1) /\ 1 = (0  1) \/ (1  0) = ((0 ~ 0) \/ 0) /\ (1 \/ 0) =...
karalina200215 karalina200215  09.12.2019 22:26
Напишите программу для нахождения минимальной и максимальной цифры в числе.язык c++...

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