Помогите решить плиз!Это паскаль! Задание во вложениях!
10-11 класс
|
Begin
k:=0;
Writeln('Введите N');
Readln(N);
If N>0 then
N:=N div 10
k:=k+1
else readkn(k);
readln;
end.
Что-то как-то меня сильно смущает стрелка слева, но пусть будет так оО
Другие вопросы из категории
от 0 до 100. Найти количество элементов массива, больших среднего арифметического
всех его элементов. Если это количество чѐтное, то увеличить каждый элемент массива на
величину индекса; иначе поменять местами центральные элементы. Вывести исходный и
итоговый массивы на экран.
Читайте также
Задания во вложении
Помогите решить две задачки (Паскаль)
Задание 1
Создать одномерный массив А, состоящий из сумм столбцов матрицы В(8,5). Определить в созданном массиве минимальный элемент и его местоположение, а также произведение всех элементов.
Задание 2
В двумерном массиве G(7,5) поменять минимальный элемент 2 строки и максимальный элемент 5 столбца. В полученной матрице вычислить значение произведения элементов главной диагонали. Заменить значение третьего элемента в первой строке на значение произведения.
Задание 1
В одномерном массиве случайных вещественных числе F(17) определить количество положительных элементов и их сумму.
Задание 2
В матрице L(5,5) случайных вещественных чисел определить максимальный элемент выше побочной диагонали, поменять его местами с элементом 2 строки 2 столбца.
Большая просьба расписать задачу подробно , хочу не просто списать решения , а понять его и научиться решать сам , огромное спасибо.
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))