Выведите на экран таблицу умножения используя только циклы вида while.
program zadacha2;
var i, j: integer;
begin
i := 1;
while (i<=9) do
begin
j := 1;
while (j<=9) do
begin
write(j, '*', i, '=', i*j, ' ');
j:=j+1;
end;
writeln();
i:=i+1;
end;
readln();
end.
Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:
1x1 = 1
1x2 = 2
......
program zadacha1;
var i, j: integer;
begin
i := 1;
repeat
j := 1;
repeat
write(j, '*', i, '=', i*j, ' ');
j:=j+1;
until (j > 9);
writeln();
i:=i+1;
until (i > 9);
readln();
end.
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
На момент написание данной статьи можно написать решение для BrowserRouter, переопределив функцию-пропс, которая отвечат за показ сообщения (передав пустую), но в отличии от Router BrowserRouter не дает работать напрямую с объектом истории history, что не всегда подходит.
Хорошим решением является использование для вывода диалога уведомления или вообще вывода чего угодно при отлеживании действий, использование пакета react-router-navigation-prompt
http://fkn.ktu10.com/?q=node/8614
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран.
type
myArr = array[1..7] of integer;
var
a: myArr;
i,max : integer;
begin
for i:=low(a) to high(a) do
begin
writeln ('введите элементы массива');
readln (a[i]);
end;
writeln('максимальный элемент введенного вами массива:');
max:=a[1];
if a[i] > max then
max := a[i];
writeln(max);
readln();
end.