Электронная таблица отличается от текстового редактора тем, что в ней используются различные формулы и макросы, которые вставляются в ячейки и делают таблицу работо т. ... А в текстовом редакторе в основном печатаются тексты. Хотя здесь тоже можно вставлять таблицы, но они не такие мобильные
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.
Электронная таблица отличается от текстового редактора тем, что в ней используются различные формулы и макросы, которые вставляются в ячейки и делают таблицу работо т. ... А в текстовом редакторе в основном печатаются тексты. Хотя здесь тоже можно вставлять таблицы, но они не такие мобильные
Объяснение:
Вот и все