Паскаль - есть ответ « Вопросы и ответы

N0oBe, 220 просмотров

Спасибо в принципе, ответ понятен :) с "Var" разобрался...
Последняя часть тоже понятна
Но куда пихать серединку?
Если словами попробовать описать прогу, то получиться :
"
Определение переменных (integer и пр.)
Начало
Ввод чисел
Разные действия с ними
Очистка экрана
Вопрос : "желаете продолжить?"
"
И куда пихать серединку вашего ответа?)
Заранее спасибо

Ответы:

Злой еж

да, да, да - мы требуем продолжения банкета! )

PbICb

Хех, ответил в вашем предыдущем вопросе. Не нужно плодить сущности.

кусок

program bla;
label 1;
var
a,b:integer;
begin
1:writeln('введите числа');
readln(a);
{Разные действия с ними};
writeln('желаете ли продолжить?');
readln(b);
if b=1 then goto 1;
writeln('end.');
end.

Neriko

Прога должна выглядеть так:
uses crt;
var a,b:integer;
s:string;
label c;
begin
randomize;
write(a*b);
write(a div b);
clrscr;
writeln("Желаете продолжить?");
readln(s);
if (s="Да") goto c
else end.
Можно конечно другие действия... Насколько я понял именно это и требуется)

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.