Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(10);
double x, y, z;
cin >> x >> y >> z;
if (x>=0) cout << sqrt(x) << " ";
if (y>=0) cout << sqrt(y) << " ";
if (z>=0) cout << sqrt(z);
return 0;
}
Объяснение:
Данная работа представляет собой изучение понятия информационные перегрузки, причины, методы борьбы и профилактики информационных перегрузок. В работе также приводится систематизация результатов исследования проблемы, содержащихся в научной литературе и в интернете. Работа носит исследовательский характер, имеет четкое оформление. Содержание реферата опирается на материал учебной программы и вместе с тем содержит элемент более глубокого изучения данной темы
File:///C:/Users/1/Downloads/adc3d87a4746d34fe0cf6ba31880cdf6.ppt
Var i:integer;
begin
for i:=1 to 10 do
write(random(101)/100,' ');
<span>end.
</span>
