Const flats_per_floor = 3;var n, flat, floor: Integer;begin Write('n = '); ReadLn(n); WriteLn('Какой номер квартиры нужен человеку?'); ReadLn(flat); floor := (flat - 1) div flats_per_floor + 1; if (floor > n) or (flat <= 0) then begin writeln('Неверный номер квартиры'); exit; end; if (floor mod 2 = 1) then writeln('Едем на ', floor, ' этаж') else writeln('Едем на ', floor - 1, ' этаж');end.
Информационно значимое содержимое веб-страницы обычно называется контентом (от англ. content — «содержание»).
var
a, b, c: real;
begin
Write('Введите первую стороны => ');
readLn(a, b, c);
writeln('Периметр треугольника равен ', a + b + c);
end.
Если имеются в виду арабские цифры, использующиеся для записи в десятичной системе счисления, то в множество войдут десять цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.