Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? program Kl; var x:byte; c,d,x1:real; begin repeat writeln(' Введи C и D'); ReadLn(c,d); if (c writeln('Ты не правильно ввёл число, т.к. C...
Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново?
program Kl;
var x:byte;
c,d,x1:real;
begin
repeat
writeln(' Введи C и D');
ReadLn(c,d);
if (c writeln('Ты не правильно ввёл число, т.к. C until (c>d);
x1:=c/d;
x:=trunc(x1);
writeln('x = ', x);
x:=x+64;
if x>91 then
writeln('Такой буквы нет')
else
WriteLn('Вот ответ');
writeln('The End');
readln;
end.
Гость
Ответ(ы) на вопрос:
ГостьДля начала вот программа с исправленными ошибками.
А чтобы программа никогда не заканчивалась, можешь применить оператор goto (что не рекомендуется) или зациклить программу:
repeat
<ПРОГРАММА>
until FALSE;
Не нашли ответ?
Похожие вопросы