Помогите пожалуйста с информатикой) по программе паскаль 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.
