var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.
Не забудьте задать исходные данные (как переменные) перед запуском программы.
program mediana;
var
x1,y1,z1,x2,y2,z2,x3,y3,z3: real; (* исходные данные *)
x_aa1,y_aa1,z_aa1,length_aa1: real; (* координаты AA1 *)
begin
(* тут нужно будет задать исходные данные *)
x_aa1 := (x2+x3)/2;
y_aa1 := (y2+y3)/2;
z_aa1 := (z2+z3)/2;
length_aa1 := sqrt(sqr(x1-x_aa1)+sqr(y1-y_aa1)+sqr(z1-z_aa1));
writeln('Длина AA1: ', length_aa1);
end.
2) 101010 в десятичной=1100010101010010010 в двоичной. (мы это число постоянно делим на два до упора. остатки при делении или 1 или 0. Вот так к примеру 6/2=3 (ост0) 3/2=1(ост1) 1 на два не делится - ставим остатки с конца, получаем 1 1 0
1)число 21410 также делить на 16 до упора. остатки записывать в обратном порядке начиная с результата последнего действия, при чем двузначные остатки записывать в виде букв
А - 10
В - 11
С - 12
D - 13
E - 14
F - 15
G - 16
Дані на комп'ютерних носіях знаходятся у файлах,у вигляді ярликів.Кожний файл має своє ім'я.
Ответ:
Можешь подробнее написать ,непонятно о чем речь?
Объяснение: