Составьте программу рисования фигуры, изображенной на рисунке, таким образом, чтобы во время рисования перо не отрывалось от бумаги, и ни одна линия не проводилась дважды
Другой перевода из десятичной системы в двоичную: берем число и делим его столбиком на основание системы, в которую переводим. Нацело. Если есть остаток, то его оставляем. А получившееся часное снова делим на основание требуемой системы. И так далее, пока часное не перестанет делится нацело. А чтобы записать число в требуемой системе, записываем последнее часное, а потом все остатки, начиная с последнего. (кстати, по аналогии можно переводить в любую другую систему).
begin s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' '); s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]); writeln(s) end.
Тестовое решение:
волчий аппетит
program e2;
var i, n, k: integer; s: string;
begin writeln('Введите фразу, разделяя слова ровно одним пробелом'); readln(s); n := length(s); k := 0; i := 1; while (k < 2) and (i <= n) do begin if s[i] = ' ' then k := k + 1; i := i + 1 end; if k = 2 then writeln('Первая буква в третьем слове: ', s[i]) else writeln('Ошибка!') end.
Тестовое решение:
Введите фразу, разделяя слова ровно одним пробелом Просто тестовая фраза из пяти слов Первая буква в третьем слове: ф
Другой перевода из десятичной системы в двоичную: берем число и делим его столбиком на основание системы, в которую переводим. Нацело. Если есть остаток, то его оставляем. А получившееся часное снова делим на основание требуемой системы. И так далее, пока часное не перестанет делится нацело. А чтобы записать число в требуемой системе, записываем последнее часное, а потом все остатки, начиная с последнего. (кстати, по аналогии можно переводить в любую другую систему).
173| 2
172 86| 2
1 86 43| 2
0 42 21| 2
1 20 10| 2
1 10 5| 2
0 4 2| 2
1 2 1
0
Итого: в записи 5 единиц.
const
s1 = 'аптека';
s2 = 'ствол';
s3 = 'чайник';
var
s: string;
begin
s := concat(Copy(s2, 3, 3), s3[1], s3[5], s3[3], ' ');
s := Concat(s, Copy(s1, 1, 2), s1[2], s1[4], s1[3], s3[5], s1[3]);
writeln(s)
end.
Тестовое решение:
волчий аппетит
program e2;
var
i, n, k: integer;
s: string;
begin
writeln('Введите фразу, разделяя слова ровно одним пробелом');
readln(s);
n := length(s);
k := 0;
i := 1;
while (k < 2) and (i <= n) do
begin
if s[i] = ' ' then k := k + 1;
i := i + 1
end;
if k = 2 then writeln('Первая буква в третьем слове: ', s[i])
else writeln('Ошибка!')
end.
Тестовое решение:
Введите фразу, разделяя слова ровно одним пробелом
Просто тестовая фраза из пяти слов
Первая буква в третьем слове: ф