Question

Розв'язати задачі №4 і 7 з прикріпленого файлу. Код розв'язання мова паскаль

Answer 1

Відповідь:

Завдання 4:

Текст програми на мові Pascal(результат на фото):

Program circle;

uses crt;

var

d, L, pi: real;

begin

clrscr;

write('Введіть діаметр кола: ');

readln(d);

pi := 3.14;

L := d * pi;

writeln('Довжина кола = ', L:0:2);

readln;

end.

Завдання 7:

Текст програми на мові Pascal(результат на фото):

Program circle;

uses crt;

var

R, L, S, pi: real;

begin

clrscr;

write('Введіть радіус кола: ');

readln(R);

pi := 3.14;

L := 2 * pi * R;

S := pi * R * R;

writeln('Довжина кола = ', L:0:2);

writeln('Площа круга = ', S:0:2);

readln;

end.