Различия между изменённой записью 627 оставленной Yana 02.12.2016 в 03:57 и
оригинальной записью 626 оставленной Yana 02.12.2016 в 03:56
Показать старую версию | новую версию | обе версии
1 | 1 | program Yana; | |
2 | 2 | var r, h, s: real; | |
3 | 3 | begin | |
4 | 4 | writeln ('Вычисление площади поверхности цилиндра'); | |
5 | 5 | writeln ('Введите исходные данные:'); | |
6 | 6 | write ('радиус основания цилиндра (см) —>'); | |
7 | 7 | readln (r); | |
8 | 8 | write ('высота цилиндра (см) ->'); | |
9 | 9 | readln (h); | |
10 | 10 | s:=2*pi*r*(h+r); | |
11 | 11 | writeln; | |
12 | - | writeln ('Площадь поверхности цилиндра ',s:2:1,'кв.см.'); | |
12 | + | writeln ('Площадь поверхности цилиндра ',s:6:2,'кв.см.'); | |
13 | 13 | readln; | |
14 | 14 | end. |