Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):
+ + + + + +
+ - - - - +
+ - - - - +
+ + + + + +
var
m, n, i, j: integer;
begin
m:= 4;
n:= 6;
for i:= 1 to m do
begin
for j:= 1 to n do
if (j = 1) or (j = n) or (i = 1) or (i = m) then
write('+ ')
else
write('- ');
writeln();
end;
readln();
end.
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- - - - - -
- - - - - -
- - - - - -
- - - - - -
var
m, n, i, j: integer;
begin
i:= 1;
j:= 1;
m:= 4;
n:= 6;
repeat
repeat
write('- ');
j:= j + 1;
until (j > n);
writeln();
i:= i + 1;
j:= 1;
until (i > m);
readln();
end.
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
1
2 3--сначала до двух
4
5 6
7 8 9--потом до трёх
10 11
12--возвращаемся к одному
13 14
15 16 17
18 19 20 21--тут уже четыре
22 23 24
25 26--снова убывает
27
28 29
30 31 32
33 34 35 36
37 38 39 40 41
42 43 44 45
Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:
ECDSA host key for .... has changed and you have requested strict checking.
Host key verification failed.
Проблема может быть в том, что ранее известный сервер отвечает другим ключом, если вы уверены, чтобы с сервером все в порядке (что он напр. не подменен злоумышленниками), то можно просто удалить ранее запомненнный идетификтор командой:
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.
Например, из строки: