Program ch;
var x,y: real;
begin
write('x='); readln(x);
write('y='); readln(y);
if ( ( y*y>=1-x*x) and (y>=0) and (y<=2) and (x>=-2) and (x<=2))
then writeln('true')
else writeln('false');
end.
А) 173,3 ≡ 1) 0, 1733*10^3
Б) 1, 733 ≡ 3) 0,1733*10^1
В) 0, 1733 ≡ 2) 0,1733*10^0
Г) 0, 0001733 ≡ 4) 0, 1733*10^-3
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var a:=ReadInteger('введите натуральное число: ').ToString;
write('сумма 1 и последней цифры: ',a[1].ToDigit()+a[a.Length].ToDigit());
end.
Uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
k:=3;
a[1]:=2;
for i:=2 to n do
begin
a[i]:=a[i-1]+k;
k:=k+2;
end;
for i:=1 to n do
writeln(a[i]);
end.