Числа в языке pascal различаются: а) как натуральные и целые; б) как целые и вещественные; в) как натуральные и вещественные; г) как целые и иррациональные; д) как целые и рациональные.

Как целые и вещественные ответ б)

Современный мир полон всяческих новинок: науки, техники, медицины. никогда, наверное, люди не обладали такой суммой знаний в разных областях. удивительные вещи и явления окружают нас.наука придумала массу интересного и полезного. от биоматериалов до искусственной руки. от искусственной почки до контактных линз, которые тренируют ночью глазные мышцы.технологии, созданные самими талантливыми людьми, могут приносить пользу, а могу т и вред. смотря как ими пользоваться. с смартфона, например, можно разводить сплетни.хахахха сплетни)) сам чё нибудь придумаешь хахаа

Program n1; var x,y,n,z,h,c: real; function arccos(x : real) : real; begin arccos : = 2 * arctan(sqrt((1 - x) / (1 + ; end; procedure ygls( a,b,c,t: real); var al,be,ga: real; begin al : = arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi; writeln('угол a= ',trunc(al)); writeln('угол b= ',trunc(180-al-t)); end; begin write('введите сторону а: '); readln(x); write('введите сторону b: '); readln(y); write('введите угол с: '); readln(c); n: =c; c: =cos(c*180/pi); z: =sqrt(x*x+y*y-2*x*y*c); h: =0.5*sqrt(2*(x*x+y*y)-c*c); ygls(x,y,z,n); writeln('сторона c: ',trunc(z)); writeln('высота h: ',trunc(h)); writeln('периметр p: ',trunc(x+y+z)); writeln('площадь s: ',trunc(z*h)); end.