<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
Var x,yn,yk,h,cos,sin:real;
begin
x:=5; yn:=2;yk:=3; h:=0.1;
while yn <= yk+h do begin
cos:=yn / x;sin:= sqrt(1 - sqr(cos));
writeln(yn:6:2,cos:6:2,sin:6:2);
yn:= yn + h;end;<span>end.
жаль! питон не знаю, но это может поможет</span>
1. Сайт продажи одежды или обуви
2. Помощь с Домашнем заданием
3. Размещение красивых фотографий
4. Сайт определённого заведение или места
5. Форум
Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;
Или можно использовать cmath:
#include <cmath>
a = abs(a);
Const
Eps = 0.01;
A = -100;
B = 100;
N = 10;
Var
i : Byte;
m : array[1..N] of Real;
Flag: Boolean;
Begin
Flag:=True;
For i:=1 to N do
Begin
Repeat
Write('Введите число № ',i,' : '); Readln(m[i]);
Until (m[i]>=A) and (m[i]<=B);
end;
Writeln;
For i:=2 to N do
If abs(m[i-1]-m[i])<Eps then
Begin
Writeln(m[i-1],' ',m[i]);
Flag:=False;
end;
If Flag then Writeln('НЕТ');
end.
Результат:
Введите число № 1 : 2.3
Введите число № 2 : 2.4
Введите число № 3 : 2.45
Введите число № 4 : 2.46
Введите число № 5 : 2.465
Введите число № 6 : 3.0
Введите число № 7 : 4.0
Введите число № 8 : 4.01
Введите число № 9 : 4.005
Введите число № 10 : 4.007
2.45 2.46
2.46 2.465
4 4.01
4.01 4.005
4.005 4.007
