Задана матрица вещественных чисел A размерности n×n. Поменять местами элементы, расположенные над главной и побочной диагоналями с элементами, расположенными под ними ( первую строку с последней, вторую спредпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.
Подсчитать количество и порядковые номера элементов ЛОС, значения информационных полей которых равны значению информационного поля предыдущего элемента. Помогите пожалуйста девушке одолеть Паскаль))) Пат
1. Напишите программу, которая по заданномунатуральному n печатает рисунок: (n=3) (рисунок три окружности друг на друге в форме снеговика).
USES GraphABC;//подключения модуля графАВС begin SetWindowWidth(800); // ширина окна программы SetWindowHeight(600); // высота окна программы var n:=3; Circle(325,180, n*10); // голова {окружность} Circle(325, 260, n*20); // туловище Circle(325, 380, n*30); // основание end. GeRa
Помогите, пожалуйста, с задачкойпо циклам: Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в A тонн. Ежегодный план отлова B тонн. Подсчитать, сколько лет можно выдерживать заданный план?
begin var A :=readreal('Каковы Запасы рыбы?'); var B:=readreal ('План отлова?'); var i:=0; repeat A:=(A+A*0.15)-B; i+=1; until A<1; print(i,'лет можно ловить') end. GeRa