1) по заданному радиусу: Program n1; Uses CRT; Var r,s: real; begin ClrScr; writeln('Vvedite radius'); readln(r); s:=r*r*pi; Writeln('ploshad =',s:4:4); readln end. 2) по заданным сторонам:Program n1; Uses CRT; Var a,b,s: real; begin ClrScr; writeln('Vvedite storoni'); readln(a,b); s:=a*b; Writeln('ploshad =',s:4:4); readln end. 3) по заданной сторонеProgram n1; Uses CRT; Var a,s: real; begin ClrScr; writeln('Vvedite storony'); readln(a); s:=a*a; Writeln('ploshad =',s:4:4); readln end. 3) по одной стороне и высоте к ней:Program n1; Uses CRT; Var a,b,s: real; begin ClrScr; writeln('Vvedite storony i vysoty k nei'); readln(a,b); s:=a*b; Writeln('ploshad =',s:4:4); readln end.
1) var v,h,i:real; begin readln(v); readln(h); i:=h-100; if v=i then writeln('у вас идеальный вес') else if v>i then writeln('вам нужно похудеть на ', v-i,' кг ') else writeln('вам нужно поправиться на ', i-v,' кг '); end.
2) var a:string; b:integer; begin readln(a); b:=strtoint(a[length(a)]); if (b mod 2 <> 0) and (b mod 5 <> 0) then writeln('число не делится ни на 2, ни на 5'); if (b mod 2 = 0) and (b mod 5 <> 0) then writeln('число делится только на 2'); if (b mod 2 <> 0) and (b mod 5 = 0) then writeln('число делится только на 5'); if (b mod 2 = 0) and (b mod 5 = 0) then writeln('число делится и на 2, и на 52'); end.
Объяснение:
б) 01000011 01001111 01001101 01010000 01010101 01010100 01000101 01010010; 00100000 01001001 01001110 01010100 01000101 01010010 01001110 01000101 01010100
В) 01001101 01001111 01001110 01001001 01010100 01001111 01010010;
01001101 01001111 01000100 01000101 01001101