Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ:100110110
Объяснение:
1
program xxx;
var n : integer;
begin
write('введите число n=');
readln(n);
if n mod 2 = 0 then write('четное') else write ('нечетное');
realdn
end.
2
e : = n mod 10
if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');
var d, x1, x2, y1,y2 : real;
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
Популярные вопросы