Question

Program Anketa; var Year:integen; Begin Writeln('сколько вам лет?'); write('Year'); readln(Year); writeln(Вам ',Year,' лет.);end.что не так в анкете ?​

Answer 1

Ответ:

Многое не так...

Объяснение:

program Anketa;

var  Year: integer;

begin

writeln('Cколько вам лет?');

write('Year');

readln(Year);

writeln('Вам', Year, 'лет.');

end.

Answer 2

В вашей программе есть несколько ошибок. Вот исправленная версия:

pascalCopy code
Program Anketa;
var
  Year: Integer;
Begin
  Writeln('Сколько вам лет?');
  Readln(Year);
  Writeln('Вам ', Year, ' лет.');
End.

Исправления:

1. Вместо integen нужно использовать Integer.
2. Измените write('Year'); на WriteLn('Year'); и удалите кавычки вокруг Year, чтобы использовать значение переменной Year.
3. В строке writeln(Вам ',Year,' лет.); нужно добавить кавычки вокруг текста, чтобы он был строкой. Таким образом, это должно выглядеть как Writeln('Вам ', Year, ' лет.');.

Теперь программа должна работать корректно, задавая вопрос о возрасте и выводя ответ в правильной форме.