Решить по информатике с клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. найти сумму всех введеных чисел. надо начать так x-число (меняется) s-сумма до цикла s: =0
СофияМ1
1
20.05.2019 16:50
1
Другие вопросы по теме Информатика
catnizamova
22.05.2020 10:28
AnastasiaLan2442
22.05.2020 10:28
Jason19
06.06.2019 01:40
Katre678556
13.06.2019 20:20
аноним1234567891011
13.06.2019 20:20
Ира0386
13.06.2019 20:20
иортььо
13.06.2019 20:20
aska311203
13.06.2019 20:20
Ksuhan13
13.06.2019 20:30
Популярные вопросы
- А хто відвіз Дмитрика додому ?...
3 - Памагите .нужно как можно быстрее...
3 - 12. Виписати прикметники, від яких неможливо утворити ступені порівняння:...
1 - Task #3 Compare two places, according the text and express your opinion....
2 - Які з даних функцій є лінійними: А) y = 5x2 – 3х Б) y = 5; В) ;...
3 - Разложи на множители: 0,1x^4y^3+2,7xy^6...
2 - нужно сделать тест по музыки 7 класс. Нужно сделать все 2 варианта....
1 - Любимек сделать задание номер...
3 - Составьте термо химические реакции и вычисли, какая масса железа (III)...
3 - Провідміняти дробовий числівник-дві цілі чотири десятих...
1
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.