Лучший ответ
-
0 0
kobA_ 5 (4559)410 14 лет
program check;
uses crt;
var b,res:integer;
begin
clrscr;
b:=2+2;
repeat
writeln('Чему равно 2+2: ');
readln(res);
if b<>res then begin
writeln('Неправильно');
end;
until b=res;
writeln(res,'-правильный ответ');
readkey;
end.
Ответы
-
1 0
woLJAR (32) 2 (343)621 14 лет
Repeat
If 2+2=4 then u:=''correct''
else u:=''incorrect''
writeln(u)
Until (u=''correct'').
U - тип стринг. Где 2+2=4 там лучше забить в перемунную как то.Инфа не 100% но это так что помню. -
0 0
йух (33) 6 (15299)2927 14 лет
2 варианта:
repeat
цикл
until условие
илиlabel povtor;
begin
povtor:
цикл
проверка GOTO povtor;
end.