Регистрация
Kember
26.04.2021 08:47
Информатика
Есть ответ 👍

ДО ІТЬ БУДЬ ЛАСКА, ІВ

294
347
Посмотреть ответы 2

Ответы на вопрос:

zoology1g
zoology1g
4,5(61 оценок)

Объяснение:

це перше

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.

dk050805
dk050805
4,4(39 оценок)

3  учеников этого класса любят все три вида спорта

Популярно: Информатика