Помогите, пожалуйста, пишет "встречено 039;begin039;, а ожидалось выражение", совершенно не знаю,
Помогите, пожалуйста, пишет "встречено 'begin', а ожидалось выражение", совершенно не знаю, что делать
program haracteristy;
var b:=sredny; a:=molod; integer:
begin
writeln ('Введите собственный возраст');
read (vozras);
if vozrast lt;0 gt;18 then a:=molod else b:=sredny;
if a=Molod then write ('Вы еще очень молоды') else write('Вы в расцвете сил');
end.
Только сейчас начал учить Паскаль и увидел у вас кучу ошибок. Вы сделали очень много излишних действия, и непонятно, чему равны переменные molod и sredny? А если это строчки, то b и а тоже обязаны быть строковыми. Я бы сделал так
program haracteristy;
uses crt;
var vozrast: Integer;
begin
clrscr;
writeln ('Введите собственный возраст');
read (vozrast);
if (vozrast gt;0) and (vozrast lt;18) then
write ('Вы еще очень молоды')
else if vozrast gt;18 then
write ('Вы в расцвете сил')
else
write('Ошибка! Возраст не может быть меншье нуля');
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.