34 решить по информатике ( нужно решать через паскаль+ блок схема) составить в тетради блок-схемы и программы для следующих алгоритмов: а) определения делимости числа на 7; б) определения делимости числа на 3 и 6; в) определения делимости числа на 3 и 5;

A )
var n : integer;
begin
readln (n);
if n mod 7 = 0 then write ('Кратно семи')
else write ('Не кратно семи');
end.

Б)
var n : integer;
begin
readln (n);
if (n mod 6 = 0) and (n mod 3 = 0) then write ('Кратно шести и трём')
else write ('Не кратно шести и трём');
end.

В)
var n : integer;
begin
readln (n);
if (n mod 5 = 0) and (n mod 3 = 0) then write ('Кратно пяти и трём')
else write ('Не кратно пяти и трём');
end.

Var
  x1, x2, x3, y1, y2, y3, L: real;

begin
  Write('Введите через пробел координаты точки А: ');
  Readln(x1, y1);
  Write('Введите через пробел координаты точки B: ');
  Readln(x2, y2);
  Write('Введите через пробел координаты точки C: ');
  Readln(x3, y3);
  L := sqrt(sqr(x2 - x1) + sqr(y2 - y1)) + sqrt(sqr(x3 - x1) + sqr(y3 - y1));
  Write('Сумма длин AB+AC равна ', L:0:3)
end.

Тестовое решение:
Введите через пробел координаты точки А: -3 2
Введите через пробел координаты точки B: 4.3 1.8
Введите через пробел координаты точки C: 0 7
Сумма длин AB+AC равна 13.134

Число — некоторая абстрактная сущность, мера для описания количества.Цифры — знаки, используемые для записи чисел.Цифры бывают разные: самыми распространёнными являются арабские цифры, представляемые знаками от нуля (0) до девяти (9); менее распространены римские цифры, их можно встретить на циферблате часов или в обозначении века (XIX век).Поскольку чисел гораздо больше чем цифр, то для записи числа обычно используется набор (комбинация) цифр. Только для небольшого количества чисел — для самых малых по величине — бывает достаточно одной цифры. Существует много записи чисел с цифр, называемыхсистемой счисления. Величина числа может зависеть от порядка цифр в записи, а может и не зависеть. Это свойство определяется системой счисления и служит основанием для простейшей классификации таких систем, что позволяет все системы счисления разделить на три класса (группы):позиционные;непозиционные;смешанные.