Что нужно сделать, для того чтобы программа не закрывалась, а продолжала работать заново? 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.
127
383
Ответы на вопрос:
Популярно: Информатика
-
Hunnnnty12.04.2023 01:11
-
Dashasdh05.08.2021 17:50
-
visnevskay109.07.2021 09:00
-
Vero2316.10.2020 01:46
-
КристинаРоманова123427.02.2022 02:04
-
Sevchi26.05.2023 18:14
-
vikasaaan26.09.2021 02:56
-
Кндр1527.12.2021 14:23
-
кот789114.02.2021 00:03
-
zkudaybergen01.07.2021 09:46