Составить программу вычисления длины окружности и площади круга по заданному радиусу.

Знания

Информатика

1 ответ:

Татьяна Дизз [186]2 года назад

0 0

Const
pi=3.14;
varr:double;
begin
read(r);
writeln('Dlina=',2*r*pi:5);
write('S=',pi*(r*r):5);
<span>end.</span>

Читайте также

Напишите программы на PascalABC.Net Задача №4: Напишите программу, которая в последовательности натуральных чисел определяет мак

Ильдар Шарафутдинов

begin

ReadSeqIntegerWhile(p -> p <> 0)

.Where(p -> p < 200)

.Max

.Println

end.

0 0

3 года назад

Помогите блок схема вычисления площади квадрата

bek77 [7]

Блок-схема расчета площади квадрата
в приложении.

0 0

4 года назад

Там задачу задали по информатике! Помогите! Дружат три мальчика: Слава, Витя и Женя. Одному нравится играть в футбол, другой лю

lovely girl [14]

Если Женя(Ж) не любит играть на скрипке то остается 2 варианта .Ему может нравится играть в футбол или играть в компьютерные игры.Задача может решаться двумя способами:

а)Женя любит компьтерныеигры,а Витя играет на скрипке.

б)Женя любит футбол ,а Витя любит комп. игры.

0 0

4 года назад

Прочитать ещё 2 ответа

Можете помочь нарисовать рисунок в Pascal ABC. ОЧЕНЬ СРОЧНО

LibertyProject

uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
   PenDown;
   OnVector(5,-5);
   OnVector(5,5);
   OnVector(i,-i);
   OnVector(-i,-i);
   OnVector(-5,5);
   OnVector(-5,-5);
   OnVector(-i,i);
   OnVector(i,i);
   PenUp;
end;
end.

0 0

3 года назад

Ниже в табличной форме представлен фрагмент базы данных о результатах соревнований по биатлону среди мужчин (12,5 км преследован

drako [101]

Ответ: 5

Фуркад Мартен Франция 34:47 1 * < 2*

Пайффер Арнд Германия 35:06 1 * < 2*

Ландертингер Доминик Австрия 36:09 0 * < 2*

Бергман Карл-Юхан Швеция 36:14 3 *Страна Швеция*

Линдстрём Фредрик Швеция 36:38 4 *Страна Швеция*

0 0

4 года назад