Question

ДОПОМОЖІТЬ БУДЬ ЛАСКА,ДАЮ 100 БАЛІВ ​

Answer 1

Ответ:

Объяснение:

це перше

program CalculateSegmentLength;

uses Math;

var

 a, b, c, ab: integer;

begin

 writeln('Ввести значення А: ');

 readln(a);

 writeln('Ввести значення B: ');

 readln(b);

 writeln('Ввести значення C: ');

 readln(c);

 ab := Round(Sqrt(a * Sqr(c)) + b * Sqr(c));

 writeln('Довжина відрізка: ', ab);

end.

це 2

program CheckValues;

uses Math;

var

 a, b, c: integer;

begin

 writeln('Ввести значення А: ');

 readln(a);

 writeln('Ввести значення B: ');

 readln(b);

 writeln('Ввести значення C: ');

 readln(c);

 if a = b then

   writeln('Yes')

 else

   writeln('NO');

end.

це 3

program PrintFavoriteMonth;

var

 m: string;

 i: integer;

begin

 writeln('Який ваш улюблений місяць в році? ');

 readln(m);

 

 for i := 1 to 10 do

   writeln(m);

end.