Меню сайта

Дана длина ребра куба —a. Найти объем куба —V= —a3 -и площадь его поверхности —S —= 6a2
Program ploshad-
Uses crt-
Var a,v,s :real-
Begin
Clrscr-
Writeln(‘введите ребро‘)- readln(a)-
V:=sqr(a)*a-
S:=6*a*sqr(a)-
Writeln(‘объем равен:­ ‘,V:5:3)-
Writeln(‘Площадь равна ‘,S:5:3)-
Категория: Линейные программы | Дата: 28.11.12

Дано расстояние в сантиметрах. Найти число полных метров в нем.
Program prim_6-
Var a,b:integer-
Begin
— — Write(‘введите расстояние в сантиметрах‘)-
— — Readln(a)-
— — b:=a div 100-
— — Writeln(b,’метров ‘)-
— -Readln
End.
Категория: Линейные программы | Дата: 28.11.12

Дана масса в килограммах. Найти число полных центнеров в ней.
Program prim_7-
Var a,b:integer-
Begin
— — Write(‘введите массу в килограммах‘)-
— — Readln(a)-
— — b:=a div 100-
— — Writeln(b,’ центнеров ‘)-
— -Readln
End.
Категория: Линейные программы | Дата: 27.11.12

Найти площадь кольца по заданным внешнему и внутреннему радиусам.
Program prim_8-
Var r1,r2,s:real-
Begin
— — Write(‘введите радиус кольца r1 —‘)-
— — Readln(r1)-
— -Write(‘введите радиус кольца r2 — -‘)-
— — Readln(r2)-
— — S:=abs(3.14*sqr(r1)-3.14*sqr(r2))- — —
Категория: Линейные программы | Дата: 27.11.12

Ввести двузначное число a. Поменять цифры числа местами.
Program prim_9-
Var a,b,c:integer-
Begin
— — Write(‘введите число а — —‘)-
— — Readln(a)-
— — b:= a div 10-
— — c:=a mod 10-
— — a:=c*10+b-
— — Writeln(a)-
— — Readln
End.
Категория: Линейные программы | Дата: 27.11.12

Страница 3 из 3123
Меню раздела
Блок