Регистрация
kNoPoCHkA96
11.05.2022 18:44
Информатика
Есть ответ 👍

50 баллов
написать программу, которая будет считать сумму введенных с клавиатуры чисел до тех пор, пока не будет введен ноль​

186
383
Посмотреть ответы 3

Ответы на вопрос:

rozarafo5
rozarafo5
4,5(76 оценок)

var s,k:integer;

begin

s:=0;

repeat

readln(k)

s:=s+k;

until k=0;

write (s);

end.

Объяснение:

используем цикл с постусловием

kirill880
kirill880
4,4(21 оценок)

var s,k:integer;

begin

s:=0;

repeat

s:=s+k;

until k=0;

write (s);

readln(k)

end.

Объяснение:

Valya199531
Valya199531
4,4(47 оценок)
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin   var d: =arrrandom(8,-50,50); d.println;   d: =(d[: 4]+arr(5)+d[4: ]).toarray; d.println end. пример 16 25 -2 45 50 6 -29 43 16 25 -2 45 5 50 6 -29 43

Популярно: Информатика