+
удобно, доступно, бесплатно
-
могут взломать, без компьютера\телефона не зайдешь, иногда очень затягивает( бесконечные переписки)
Надеюсь помогла
// составьте программу нахождения в массиве а( 10) индексов элементов значения которых не кратны 4
var i,x: word;
a : array [1..10] of integer;
Begin
writeln ('Введите 10 целых чисел');
for i:=1 to 10 do
Begin
write (i,' число ');
readln (a[i]);
end;
writeln;
for i:=1 to 10 do
Begin
x:=a[i] mod 4;
if x<>0 then writeln (i,' элемент таблицы не кратен 4');
end;
<span>End.</span>
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
type
Point=record
x,y:real
end;
function ReadPoint(c:char):Point;
begin
Write('Координаты точки ',c,': ');
Read(Result.x,Result.y);
end;
procedure Quarter(a:Point);
begin
Write('Точка (',a.x,',',a.y,') ');
if a.x<0 then begin
if a.y>0 then Writeln('принадлежит II четверти')
else
if a.y=0 then Writeln('лежит на оси абсцисс')
else Writeln('принадлежит III четверти')
end
else
if a.x=0 then begin
if a.y=0 then Writeln('лежит на пересечении координатных осей')
else Writeln('лежит на оси ординат')
end
else
if a.y<0 then Writeln('принадлежит IV четверти')
else begin
if a.y=0 then Writeln('лежит на оси абсцисс')
else Writeln('принадлежит I четверти')
end
end;
begin
var a,b:Point;
a:=ReadPoint('A'); b:=ReadPoint('B');
Quarter(a); Quarter(b);
Write('Расстояние от точки А до начала координат: ');
Writeln(sqrt(sqr(a.x)+sqr(b.x)))
end.
<u><em>Тестовое решение:</em></u>
Координаты точки A: -3.7 1.73
Координаты точки B: 6 8
Точка (-3.7,1.73) принадлежит II четверти
Точка (6,8) принадлежит I четверти
Расстояние от точки А до начала координат: 7.04911341943084
Рассмотрим второе число 6 : у него 0 десятков
0=2^0-1
третье: 16 : один десяток (1)
1=2^1-1
четвёртое: 36 три десятка
3=2^2-1
пятое 76 7=2^3-1
шестое 156 15=2^4 -1
ОТВЕТ 156