как поменять на while на until

[zloi1045]

program mmm;
uses crt;
var
k,s,j,n,v:integer;
begin
clrscr;
n:=0;
k:=0;
j:=32000;
while n<12 do begin
write(‘введите число');
readln(k);
if k mod 2 = 0 then 
s:=s+k;
n:=n+1;
if k<j then
 j:=k;
end;
v:=s-j;
writeln;
writeln(‘разность = ',v);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Pein95]

ну что тут сложного цыкл while ет цыкл с предусловиям, цыкл repeat ет цыкл с условием после тела самого цыкла. ПОдумайте как можно решыть вашу проблему.

[zloi1045]

а можете переделать мой текст программы , а то я так не могу понять мне наглядно надо)))

[Pein95]

program mmm;

var
k,s,j,n,v:integer;
begin
s:=0;
n:=0;
k:=0;
j:=32000;
repeat
write('vvedite chislo');
readln(k);
if k mod 2 = 0 then 
s:=s+k;
n:=n+1;
if k<j then
j:=k;
until (n>=12);
v:=s-j;
writeln;
writeln('raznost=',v);
readln;
end.

[zloi1045]

спасибо понял)))

[zloi1045]

Вводиться текст. Конец ввода точка. Найти количество цифр.

Program hhh;
Uses crt;
Var
C: char;
I: integer;
Begin
I: = 0;
Writeln ('введите текст');
C: = readkey;
While c <> '.' Do
Begin
Write (c);
If (c ='1') or(c='2') or(c='3')or(c='4')or(c='5')or
(c='0')or(c='6')or(c='7')or(c='8')or(c='9') then
I:=I+1;
C:= readkey;
End;
writeln;
Write ('в тексте  ',I,' цифр(ы)');
readln;
End.

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

Program hhh;
Uses crt;
Var
C: char;
I: integer;
Begin
I: = 0;
Writeln ('введите текст');
C: = readkey;
repeat 
Begin
Write (c);
If (c ='1') or(c='2') or(c='3')or(c='4')or(c='5')or
(c='0')or(c='6')or(c='7')or(c='8')or(c='9') then
I:=I+1;
C:= readkey;
until (c<>'.')
writeln;
Write ('в тексте  ',I,' цифр(ы)');
readln;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Ромиk]

Сообщение от zloi1045

Вводиться текст. Конец ввода точка. Найти количество цифр.

Program hhh;
Uses crt;
Var
C: char;
I: integer;
Begin
I: = 0;
Writeln ('введите текст');
C: = readkey;
While c <> '.' Do
Begin
Write (c);
If (c ='1') or(c='2') or(c='3')or(c='4')or(c='5')or
(c='0')or(c='6')or(c='7')or(c='8')o r(c='9') then
I:=I+1;
C:= readkey;
End;
writeln;
Write ('в тексте ',I,' цифр(ы)');
readln;
End.

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


Program hhh;
Uses crt;
Var
C: char;
I: integer;
Begin
I: = 0;
Writeln ('введите текст');
C: = readkey;
repeat
Begin
Write (c);
If (c ='1') or(c='2') or(c='3')or(c='4')or(c='5')or
(c='0')or(c='6')or(c='7')or(c='8')o r(c='9') then
I:=I+1;
C:= readkey;
until (c<>'.')
writeln;
Write ('в тексте ',I,' цифр(ы)');
readln;
End.

ставьте код читать не возможно

[zloi1045]

как это сделать

[9i.]

until (c<>'.')

измените знак не равно(<>) на равно(=)

код ставится так:
когда отвечаете или просто пишите сообщение нажимаете на знак октоторпа(#) на панели и вставляете код

[phasha]

в while цикл повторяется пока условие верно а в repeat наоборот-лживо