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