42. в каких случаях применяют цикл с предусловием, а не с постусловием в паскале?

Question

Информатика: 42. в каких случаях применяют цикл с предусловием, а не с постусловием в паскале?

alekss84 · Accepted Answer

Язык программирования не указан, поэтому был выбрана система PascalABC.Net

const
Gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы',
    'Э','э','Ю','ю','Я','я'];
stop='$';
var
c:char;
n:integer;
begin
Writeln('Вводите текст по одному символу, завершив ввод символом ',stop);
n:=0;
repeat
    ReadLn(c);
    if c in Gl then Inc(n)
until c=stop;
Writeln('Количество гласных букв равно ',n)
end.

Напоминаю, что в Паскале ввод каждого отдельного символа с клавиатуры должен завершаться нажатием клавиши Enter!

MOGZ ответил