Показать сообщение отдельно
mrCloud
в Бане
Сообщения: 4,723
Регистрация: 06.12.2009
Старый пост, нажмите что бы добавить к себе блог 21 января 2011, 18:45
Домашняя страница
  #824 (ПС)
-Цитата от Hammer Посмотреть сообщение
-Цитата от alligator[7Вагон] Посмотреть сообщение
program namwe;
uses crt;
const by=2011;
var name:string;
age,oldyear:integer;
begin
clrscr;
write('What are you name?');
realdn(name);
write('How old are you?');
readln(age);
if by < age then
begin
oldyear:=by-age;
writeln('Okay,you were burn in',oldyear);
readln;
end.
опять таки странно выбивает на моменте,после того,как я ввожу имя, возраст выбивает)чо делать?)
Вообще странная программа, начиная от мелких ошибок, таких как:
-
readln(name);
и отсутствие
-
end;
в последнем условии.

Что за проверка 2011 < Введенный возраст?
ну получается что если вводимое число меньше 2011,то оно начинает узнавать год рождения по примеру сейчас год минус сколько лет = год рождения.

offline
Ответить с цитированием