М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PHVRVOH
PHVRVOH
09.05.2022 20:02 •  Информатика

1. составьте на языке паскаль программу решения следующей : считая три введенных натуральных числа a,b,c длинами сторон треугольника, вычислить его периметр и площадь. указание к решению: для вычисления площади можно воспользоваться формулой герона , где p –это полупериметр треугольника. 2. опишите в синтаксисе паскаля следующие вычисления: дано действительное число a. не пользуясь никакими другими арифметическими операциями, кроме умножения, получить: а6 за 3 операции; а21 за 6 операций; а10 за 4 операции.

👇
Ответ:
тата238
тата238
09.05.2022
Задание 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

begin
  var a,b,c:real;
  Read(a,b,c);
  var p:=a+b+c;
  Writeln('P=',p);
  p/=2;
  Writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)))
end.

Задание 2.
a⁶ = (a²)×((a²)²)
a:=a*a; b:=a*a; b:=b*a;

a²¹ = a¹⁶×a⁴×a¹; a⁴ = ((a²)²); a¹⁶=(a⁴×a⁴)²
b:=a*a; b:=b*b; c:=b*b; c:=c*c; c:=c*b; c:=c*a;

a¹⁰ = a⁸+a²; a⁸ = ((a²)²)²
b:=a*a; a:=b*b; a:=a*a; b:=a*b;
4,5(50 оценок)
Открыть все ответы
Ответ:
anymay20041302
anymay20041302
09.05.2022

В город М напрямую можно попасть только из города Н (в который напрямую можно попасть только из города Ж), и из города Ж. Значит, для любого пути в Ж из А есть два варианта, как проехать в М.

В город Ж можно попасть напрямую из городов В, Г, и Д. В город В из города А можно попасть тремя путями: АБВ, АГВ и АБГВ, в город Г - двумя: АГ и АБГ, в город Е - тремя: АГЕ, АДЕ и АБГЕ.

Итого: Из города А в город Ж есть 3+2+3=8 путей, из Ж в М - 2 пути. Для каждого пути из А в Ж есть оба варианта пути из Ж в М, поэтому умножаем: 8×2=16 путей.

ответ: 16 путей

Буду очень благодарен, если Вы отметите мой ответ как лучший!

4,6(97 оценок)
Ответ:
Виктор338
Виктор338
09.05.2022
1)Program massiv;

Var mas:array[1..20] of integer;

a,b,i,sum:integer;

Begin

sum:=0;

For i:=1 To 20 Do

begin

mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}

write(mas[i],' ');

end;

Writeln('Введите a,b');

Readln(a,b);

For i:=1 To 20 Do

begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end.    2)  Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.  3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end; end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.
4,5(73 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ