Переделать задачу с цикла while на repeat/until

@student-18 · Регистрация: 22.11.2012

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

Здравствуйте.
Нужна такая помощь: необходимо задачу переделать с циклом repeat/until по блок-схеме.

Комментарий модератора

1) Поясняющие изображения загружайте на форум в виде вложений.
2) Тексты (в т.ч. программный код) должны быть напечатаны вручную и обрамлены тегами подсветки.

@CodeR · 17.01.2013, 08:29

Pascal

Var i,k:byte;
    s,x:real;
Begin
    s:=0;k:=0;i:=0;
    Repeat
     write('Ввод x: ');
     readln(x);
     i:=i+1;
     if x>0 then
     Begin
       s:=s+x;
       k:=k+1;
     End;
    Until x=0;
    if i<14 then writeln('Вы ввели менее 14 чисел')
     else 
     Begin
       s:=s/k;
       writeln(s:0:2);
     End;
    readln;
End.

Опции темы

Переделать задачу с цикла while на repeat/until

Решение