Алгоритмы и программы. Афанасьева Т. В - 82 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

82
Четность и нечетность определяется при помощи оператора <mod>:
определение дробной части от деления на 2.
var
i, max, min, a: integer;
ch: char;
begin
writeln('нахождение минимального нечетного');
writeln('и максимального четного ');
writeln('элемента последовательности');
write('вводить посл.(y/n)');
read(ch);
if ch='n' then halt(1); { выход из программы }
max:=-32767;
min:=32767;
while ch<>'n' do begin
readln(a);
if (a mod 2)=0 then
if a>max then max:=a;
if (a mod 2)<>0 then
if a<min then min:=a;
write('продолжить ввод(y/n)');
read(ch);
end;
writeln('миним.нечетн=',min);
writeln('макс.четн.=',max);
readln;
end.
Оператор цикла с постусловием
Repeat <тело цикла> until <условие>;
здесь repeat, until – зарезервированные слова (повторять до тех пор, [пока
не будет выполнено условие]);
<тело цикла> – произвольная последовательность операторов;
<условие> – выражение логического типа.
Операторы <тело цикла> выполняются хотя бы один раз, после чего
вычисляется выражение <условие>: если его значение есть FALSE (лож.),
операторы <тело цикла> повторяются, в противном случае оператор
repeat...until завершает свою
работу.

Страницы