Автор Doinkes задал вопрос в разделе Программное обеспечение
Как в PascalABC.NET во writeln() прописать перенос строки? и получил лучший ответ
Ответ от
Чего? Скажи по точнее
Ilya
(301)
If x=1 then write ('Вы ошиблись. [I]вот здесь нужен переход на новую строку [/I]x=2');
If x=2 then write ('Верно!. [I]вот здесь нужен переход на новую строку [/I]x=2');
If x=3 then write ('Вы ошиблись. [I]вот здесь нужен переход на новую строку [/I]x=2');
Ответ от IzabelAltera[эксперт]
пиши chr(13)
пример
begin
writeln('a', chr(13), 'b');
end.
выведет
a
b
______
изучи коды управляющих символов, а также их вставку в текст программы. Очень полезно.
функция Ord(X) Возвращает код символа X
Chr(N) Возвращает символ с кодом N
пиши chr(13)
пример
begin
writeln('a', chr(13), 'b');
end.
выведет
a
b
______
изучи коды управляющих символов, а также их вставку в текст программы. Очень полезно.
функция Ord(X) Возвращает код символа X
Chr(N) Возвращает символ с кодом N
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Как в PascalABC.NET во writeln() прописать перенос строки?
спросили в Family Values Tour
значение выражения "Time is money"
It's an old cliche that we all know and understand, but to what extent do you really apply it in
подробнее...
значение выражения "Time is money"
It's an old cliche that we all know and understand, but to what extent do you really apply it in
подробнее...
спросили в A
I _...._ to my sister for a long time(write)
I haven\'t written to my sister for a long
подробнее...
I _...._ to my sister for a long time(write)
I haven\'t written to my sister for a long
подробнее...
В результате выполнения операторов:
Вот так правильно, выведет +S
If ((A div 5=15) and (a<=79)) Then Write ('+');
Write
подробнее...
Множества (Delphi)
var A, B, D : Set of Char;
C : Char;
begin
...Заполнить нужно! Но как заполнить не
подробнее...
спросили в Музыка Æon Group
У кого-нибудь есть слова песни "Words" The Real Group?
Words
A letter and a letter on a string
Will hold forever humanity
подробнее...
У кого-нибудь есть слова песни "Words" The Real Group?
Words
A letter and a letter on a string
Will hold forever humanity
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Motörhead
с++ паскаль. Дано натуральное число m (m<27). Получить все трёхзначные натуральные числа, сумма цифр которых равна m.
var
m,sum,a,b,i:integer;
begin
write('m=');
read(m);
for i:=100 to 999 do
подробнее...
с++ паскаль. Дано натуральное число m (m<27). Получить все трёхзначные натуральные числа, сумма цифр которых равна m.
var
m,sum,a,b,i:integer;
begin
write('m=');
read(m);
for i:=100 to 999 do
подробнее...
Задача на программирование для Pascal ABC
Вот один из множества вариантов:
label 1;
var a,max:integer; m:array[1..3] of integer;
Создайте программу на языке Паскаль, которая будет определять: является ли данная строка S палиндромом. (Ввод:S; Вывод Д
А зачем слово переворачиамть?
Palindr := True; {предположим, что палиндром}
L :=
подробнее...
спросили в Motörhead
Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать?
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать?
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
спросили в C S I Randomness
Pascal одномерные массивы.
program PROG5_2;
const
N = 10;
var
a : array [1..N] of integer;
i,
подробнее...
Pascal одномерные массивы.
program PROG5_2;
const
N = 10;
var
a : array [1..N] of integer;
i,
подробнее...
Здравствуйте! Помогите, пожалуйста, с английским. 7 класс. Activity book.
Ой, деточка, задание очень геморройное... могу перевести, чего от тебя требуется: Дополните диалог
подробнее...