С помощью оператора Repeat(while) найти сумму чисел

@Крuстuна · Регистрация: 13.01.2011

Author24 — интернет-сервис помощи студентам

3. С помощью оператора Repeat(while) программа для нахождения суммы чисел

@marshal · 03.02.2011, 15:09

3.

Pascal

program repeat_;
uses crt;
var i,s:integer;
begin
repeat
clrscr;
writeln('вводите числа');
readln(i);
s:=s+i;
until i=0;
writeln('сумма равна ',s);
end.

@Крuстuна 0 / 0 / 0 Регистрация: 13.01.2011 Сообщений: 8
		1
	С помощью оператора Repeat(while) найти сумму чисел 03.02.2011, 14:16. Показов 4993. Ответов 1 Метки нет (Все метки) 3. С помощью оператора Repeat(while) программа для нахождения суммы чисел 0

	03.02.2011, 15:09

С помощью оператора Repeat(while) найти сумму чисел

Решение