repeat until

[Casper098]

Вводятся 11 чисел. Найти разность между суммой нечетных и максимальным числом из введенных чисел.

Program mmm;
Uses crt;
Var
a,s,i,m:integer;
begin
clrscr;
i:=0;
m:=-32000;
while I<11 do begin
write (‘vvedite chislo ‘);
readln(a);
if m<a then m:=a;
if a mod 2<>0 then s:=s+a;
i:=i+1;
end;
writeln;
writeln(‘raznoct = ‘,s-m);
end.

Вводится текст. Конец ввода F6.Найти количество заглавных букв.

Program 123;
Uses crt;
Var
C:Char;
I:integer;
Begin
i:=o;
writeln (‘vvedite text’);
C:=readkey;
While c<> # 64 do
Begin
Write (c);
If c in [‘A’..’Z’] then
i:=i+1;
c:=readkey;
end;
writeln;
write (‘v texte ‘,I,’ zaglavnix bykv’);
readln;
end.

в обоих задачках надо поменять цикл while do на repeat until

[9i.]

и что вы не можете сделать?

[Casper098]

Program mmm;
Uses crt;
Var
a,s,i,m:integer;
begin
clrscr;
i:=0;
m:=-32000;
repeat
begin
until
I>11
write (‘vvedite chislo ‘);
readln(a);
if m<a then m:=a;
if a mod 2<>0 then s:=s+a;
i:=i+1;
end;
writeln;
writeln(‘raznoct = ‘,s-m);
end.

так будет?

[9i.]

while (условие) do операторы

repeat
операторы
until условие

у вас после антил условия нету

[Casper098]

Подправил,так?

[9i.]

вот у вас в условии while написано i <11
так почему же вы после аntil пишите if
until i>11;
должно быть
т к антил выполняется пока условие ложно

[Casper098]

если тогда убрал.
знак < тот же оставить, или > ?

[9i.]

знак изменяется, в предыдущем сообщении я объяснил почему

[Casper098]

ага понятно

[Casper098]

Program 123;
Uses crt;
Var
C:Char;
I:integer;
Begin
i:=o;
writeln (‘vvedite text’);
C:=readkey;
repeat
Begin
until
c<> # 64
Write (c);
If c in [‘A’..’Z’] then
i:=i+1;
c:=readkey;
end;
writeln;
write (‘v texte ‘,I,’ zaglavnix bykv’);
readln;
end.

а в этой так?