Синформатикой) по программе паскаль 1.известны два расстояния: одно в километрах, другое — в футах (1 фут = 0,45 м). какое из расстояний меньше? 2.известны две скорости: одна в километрах в час, другая — в метрах в секунду. какая из скоростей больше? 3.даны радиус круга и сторона квадрата. y какой фигуры площадь больше? 4.известны площади круга и квадрата. определить: а)уместится ли круг в квадрате; б)уместится ли квадрат в круге. 5.даны объемы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 6.известны сопротивления двух не соединенных друг с другом участков электрической цепи и напряжение на каждом из них. по какому участку протекает меньший ток?

известны два расстояния: одно в километрах, другое—в футах(1 фут=0,45 м). какое из расстояний меньше? program ss; uses crt; var a,b,c,s,s1: integer; begin clrscr; writeln('введите расстояние в километрах: '); readln(a); writeln('введите расстояние в футах'); readln(b); writeln('введите размер одного фута в метрах'); s: =a*1000; s1: =c*b;

if s> s1 then begin write('расстояние в футах меньше чем в км'); end else writeln('расстояние в км меньше чем в футах'); writeln(' программа завершена нажмите '); readln; end.

известны две скорости: одна в километрах в час, другая—в метрах в секунду. какая из скоростей больше? program evgen; var kilom: real; metr: real; begin kilom : = metr * 1.6; write('введите скорость в км\ч: '); readln(kilom); write('введите скорость в м\с: '); readln(metr); if kilom < metr then write('скорость в км\ч больше'); if kilom > metr then write('скорость в км\ч меньше'); if kilom = metr then write('скорость в км\ч равна скорости в м\ч'); end.

даны радиус круга и сторона квадрата. у какой фигуры площадь больше program ploshcad; var r,d,skr,skv: extended; begin write('введите радиус круга: '); readln®; write('введите сторону квадрата'); readln(d); skr: =pi*sqr®; writeln('площадь круга: ',skr: 10: 5); skv: =sqr(d); writeln('площадь квадрата: ',skv: 10: 5); if skr=skv then writeln('площади равный'); if skr> skv then writeln('площадь круга больше'); if skv< skr then writeln('площадь квадрата больше'); readln; end.

  известны площади круга и квадрата. определить: a) уместится ли круг в квадрате? b) уместится ли квадрат в круге? program prim; var a,r,s1,s2: real; begin write('введите площадь круга и квадрата'); readln(s1, s2); a: =sqrt(s2); r: =sqrt(s/3.14); if (r< a/2) then writeln (' круг уместится в квадрате') else writeln (' круг не уместится в квадрате'); if (a*sqrt(2))> (4*r) then writeln ('квадрат уместится в круге') else writeln('квадрат не уместится в круге'); readln end.

даны объёмы и массы двух тел из разных материалов. материал какого из тел имеет большую плотность. var v1,v2,m1,m2,p1,p2: real; begin writeln('введите объем и массу первого тела'); readln(v1,m1); writeln('введите объем и массу второго тела'); readln(v2,m2); p1: =v1/m1; p2: =v2/m2; if p1> p2 then begin writeln('плотность первого тела больше'); end; if p1< p2 then begin writeln('плотность второго тела больше'); end else if p1=p2 then begin writeln('плотности тел равны'); end.