Вывести на экран N случайных чисел (каждое с новой строки) из диапазона [-21, 35]
ПРИМЕЧАНИЕ: подразумевается, что вы должны организовать цикл, который выполнится N раз и при этом в каждом своём витке выведет на экран случайное число.
Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух)
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.
Решение одним циклом, без использования делимости нацело
http://fkn.ktu10.com/?q=node/8614
У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
type
myArr = array[1..17] of integer;
var
a: myArr;
i,k,m,n : integer;
begin
k:=1; //длина фрагмента
m:=1; //ограничитель длины фрагмента
for i:=low(a) to high(a) do
begin
write (i,' ');
if k=m then
begin
k:=0;
m:=m+1;
writeln;
end;
k:=k+1;
end;
end.
http://fkn.ktu10.com/?q=node/8614
Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.
Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.
program zadacha14;
var i, j: integer;
begin
i := 1;
repeat
j := 1;
repeat
write(i, ':', j, '=' ,i/j:1:1, ' ');
j:=j+1;
until (j > 9);
writeln();
i:=i+1;
until (i > 9);
readln();
end.
Пользователь вводит два целых числа M и N, если M четное, делайте то же, что и в предыдущей задаче, а если нечётное, то умножайте M в цикле на 3 до тех пор пока результат не станет больше N (и выводите каждый из промежуточных результатов умножения на экран), например для: