В последовательности чисел, вводимых с клавиатуры, подсчитать сумму чисел между двумя числами 8. Признак завершения ввода: второе число 8 — Pascal(Паскаль)

var
a,s,f:integer;
begin
repeat
writeln('vvedite chislo');
readln(a);
if a=8 then f:=f+1;
if f=1 then s:=s+a;
until f=2;
writeln (s-8);
end.

Похожие записи/страницы:

Leave a Comment

68 + = 69