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