A)*
б)/
в)*
г)+
д)*
е)*
/ - разделить * - умножить
Var x1,y1,x2,y2,d1,d2:real;
begin
write ('X1 = ');
readln (x1);
write ('Y1 = ');
readln (y1);
write ('X2 = ');
readln (x2);
write ('Y2 = ');
readln (y2);
d1:=sqrt(sqr(x1)+sqr(y1));
d2:=sqrt(sqr(x2)+sqr(y2));
if d1<>d2 then write ('К началу координат ближе ');
if d1>d2 then writeln ('вторая точка') else
if d2>d1 then writeln ('первая точка') else
writeln ('Обе точки равноудалены друг от друга');
end.
Натуральные числа в математике определяются как целые положительные, получающиеся при счете. Т.е. это числа 1, 2, 3, ...
В языке Паскаль (собственно, как и в большинстве других языков программирования) нет специального типа данных для натуральных чисел. Поэтому натуральные числа отображаются на целочисленные типы. Указание на то, что Вы имеете дело с натуральным числом, дается с тем, чтобы учесть это при разработке алгоритма. Например, если сказано что n - натуральное число, можно не беспокоиться, что при делении на него будет ошибка деления на ноль. Можно не озабочиваться тем, что оно попадет под квадратный корень и даст ошибку из-за появления код корнем отрицательного числа. И так далее.
Подходящим типом данных в Паскале может быть тот целочисленный, в котором разместятся любые натуральные числа, которые заданы или могут образоваться в процессе вычислений, даже как промежуточные данные. Например, если Вы возьмете тип integer, современные версии Паскаль позволят разместить в нем значение, не превышающее 2 147 483 647, т.е. примерно 2.1 миллиарда. Пусть дано n = 2 000 000 000 и надо найти остаток от деления n² на 97.
Если написать Sqr(n) mod 97, получим забавный результат -41, хотя ответ тут 65. Это потому, что 2 миллиарда в квадрате нельзя разместить в переменной типа integer (но можно в int64) и часть разрядов числа будет <u>молча</u> утеряна. Это одна из неприятностей неграмотной работы с целыми числами. Одна - потому что есть и другие)).
N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mx=0;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> k=1;
</span><span> else:
</span><span> if (int(lst[i])==mx):
</span><span> k+=1;
</span><span>print(mx,k);
</span>задайте размер массива 10
<span>-15 10 14 7 21 19 13 21 11 17
</span><span>21 2
</span>