Запись оставлена Yana 02.12.2016 в 04:00 (изменение записи, оставленной Yana | показать различия)
запустить | скачать | различия | новая запись
- program Yana;
- uses crt;
- var r, h, s: real;
- begin
- writeln ('Вычисление площади поверхности цилиндра');
- writeln ('Введите исходные данные:');
- write ('радиус основания цилиндра (см) —>');
- readln (r);
- write ('высота цилиндра (см) ->');
- readln (h);
- s:=2*pi*r*(h+r);
- writeln;
- writeln ('Площадь поверхности цилиндра ',s:6:2,'кв.см.');
- readln;
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.