Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново?
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;