Pascalabc. почему не выводится ответ? - Вопросы по Pascal
  • Чаты 4chT.com в телеграмм
    Наши группы в телеграмм

Вопрос Pascalabc. почему не выводится ответ?

Регистрация
17 Окт 2013
Сообщения
91
Репутация
-3
Спасибо
0
Монет
0
var Anton,Boris, Victor: integer;

Writeln('Напишите возраст: Антона, Бориса, Виктора');

read(Anton, Boris, Victor);

Writeln('Возраст Антона:',Anton);

Writeln('Возраст Бориса:',Boris);

Writeln('Возраст Виктора:',Victor);

if Anton>Boris then

if Anton>Victor then Writeln('Ответ: Антон старше всех')

else

if Anton=Boris then

if Anton>Victor then Writeln('Ответ: Антон и Борис старше Виктора');

if Boris>Anton then

if Boris>Victor then Writeln('Ответ: Борис старше всех')

else

if Boris=Victor then

if Boris>Anton then Writeln('Ответ: Борис и Виктор старше Антона');

if Victor>Anton then

if Victor>Boris then Writeln('Ответ: Виктор старше всех')

else

if Victor=Anton then

if Victor>Boris then Writeln('Ответ: Виктор и Антон старше Бориса');

if Anton=Boris then

if Boris=Victor then Writeln('Ответ: Все одного возраста');
 
Регистрация
25 Июл 2013
Сообщения
74
Репутация
0
Спасибо
0
Монет
0
var Anton,Boris, Victor: integer;
Writeln('Напишите возраст: Антона, Бориса, Виктора');
read(Anton, Boris, Victor);
Writeln('Возраст Антона:',Anton);
Writeln('Возраст Бориса:',Boris);
Writeln('Возраст Виктора:',Victor);
if Anton>Boris then
if Anton>Victor then Writeln('Ответ: Антон старше всех')
else
if Anton=Boris then
if Anton>Victor then Writeln('Ответ: Антон и Борис старше Виктора');
if Boris>Anton then
if Boris>Victor then Writeln('Ответ: Борис старше всех')
else
if Boris=Victor then
if Boris>Anton then Writeln('Ответ: Борис и Виктор старше Антона');
if Victor>Anton then
if Victor>Boris then Writeln('Ответ: Виктор старше всех')
else
if Victor=Anton then
if Victor>Boris then Writeln('Ответ: Виктор и Антон старше Бориса');
if Anton=Boris then
if Boris=Victor then Writeln('Ответ: Все одного возраста');
тут в конце нужно bIMbim bam bam дописать
 
Регистрация
27 Июл 2013
Сообщения
81
Репутация
0
Спасибо
0
Монет
0
Это паскаль? Исправь все ошибки, о которых тебе говорит компилятор.
 
Регистрация
30 Авг 2013
Сообщения
80
Репутация
0
Спасибо
0
Монет
0
У тебя все циклы не открываются и не закрываются. Естессна, при таком синтаксисе программа не будет работать от слова совсем.
Спросил у нейронки, видимо? Для начала нужно выучить основы языка, увы.
 
Регистрация
17 Окт 2012
Сообщения
80
Репутация
0
Спасибо
0
Монет
0
Ответ не выводится потому, что твой код не компилируется: невозможно написать работающую Pascal-программу без использования begin / end, которых у тебя в коде в помине нет.
 
Сверху Снизу