Question

СРОЧНО ПОЖАЛУЙСТА ПОМОГИТЕ , ТОЛЬКО НЕ НУДНО ПИСАТЬ ПРОСТО ТАК ЕСЛИ ВЫ НЕ ЗНАЕТЕ !!!!!!

Answer 1

Задание 1:

1. Вычислить длину окружности и площадь круга

program circle;

var r:integer;

begin

   write('Введите радиус круга: '); readln(r);

   writeln('Периметр круга = ', 2*pi*r:0:3);

   writeln('Площадь круга = ', pi*sqr(r):0:3);

end.

2. Найти сумму членов арифметической прогрессии, если известны ее первый член, разность и число членов прогрессии

program prog;

var i,a,n,step,sum:integer;

begin

   sum:=0;

   write('Введите первый член арифметической прогрессии: '); readln(a);

   write('Введите первый шаг арифметической прогресии: '); readln(step);

   write('Введите количество членов арифметической прогрессии: '); readln(n);

   for i:=1 to n do

   begin

       write(a, ' ');

       sum:=sum+a;

       a:=a+step

   end;

   writeln('Сумма ', n, ' членов арифметической прогрессии равна ', sum)

end.

Задание 2:

1. Треугольник со сторонами a, b, c является равносторонним

program triangle;

var a,b,c:integer;

begin

   write('Введите стороны треугольника через пробел: '); readln(a,b,c);

   write((a = b) and (a = c));

end.

2. Целое число N является четным двузначным числом

program prog;

var N:integer;

begin

   write('Введите N: '); readln(N);

   write((N mod 2 = 0) and (N div 10 <> 0) and (N div 100 = 0));

end.