darina2340
13.02.2023 16:33

Задачи по теме: Запись вс алгоритмов на языке Паскаль

Задача 1.
Треугольник задан координатами своих вершин. Необходимо найти его площадь по формуле Герона, используя функцию нахождения расстояния между двумя точками.
–100 < Xi, Yi < 100
Задача 2.
С клавиатуры вводятся два целых положительных числа N и M. Используя функцию расчёта факториала числа, найти значение N! – M!. Факториалом числа T! называется произведение всех целых чисел от 1 до T включительно.
1 < N, M < 10
Задача 3.
С клавиатуры вводятся четыре целых положительных числа: N, M, t, k. Используя процедуру возведения числа в степень, найти значение выражения N^t – M^k.
1 < N, M < 10
0 < t, k < 5

Задача 4.
Ипользуя процедуру проверки того, является ли число вывести на экран все числа от 3 до называется целое число, которое делится без остатка лишь на себя и на единицу.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
CCQ
14.12.2021 21:13
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.
0,0(0 оценок)
Ответ:
iruha07082001
14.12.2021 21:13
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания}
Uses Crt;
var
a,c,b:integer;
begin
   ClrScr;
      repeat
          writeln('INPUT 3-x znachoe');
           readln(b);
      until (b>=100)and(b<=999);
a:=b div 100+(b div 10)mod 10;
c:=(b div 10)mod 10+b mod 10;
     if a<c then
         writeln(a,c)
else
         writeln(c,a);
Readkey;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота