var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
repeat
write(a,' ');
a:=a+n
until a>b
end.
или
var a,b,n,i:integer;
begin
write('Введите a,b,n: ');
readln(a,b,n);
while a<=b do
begin
write(a,' ');
a:=a+n
end
end.
Животные генерируют и воспринимают ультразвук при специальных рецепторных аппаратов. Ультразвук им ориентироваться в пространстве. Ультразвуковые колебания, создаваемые животными, отражаются от предметов и воспринимаются специализированными органами слуха как преграды на пути.
в первую очередь относятся дельфины, морские свинки,летучие мыши, тропические рыбы и др.
Ультразвуковой датчик определяет расстояние до объекта, измеряя время отображения звуковой волны от объекта. Частота звуковой волны находится в пределах частоты ультразвука, что обеспечивает концентрированное направление звуковой волны, так как звук с высокой частотой рассеивается в окружающей среде меньше
Цифровой гироскопический датчик предназначен для измерения ...и ...вращения робота. Поэтому перед началом каждого измерения всегда необходимо производить обнуление угла при режима
Ультразвуковой датчик широко применяется в самых разных сферах производства, и в некотором роде являются универсальным средством решения многих задач автоматизации технологических процессов. Такие датчики применяются для определения удаленности и местонахождения различных объектов.
Объяснение:
program z1;
var a:array [1..10] of integer;
i,sp,so:integer;
begin
randomize;
sp:=0;
so:=0;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
if a[i] > 0 then sp:=sp+a[i]
else so:=so+a[i];
write(a[i],' ')
end;
writeln;
writeln('Сумма положительных элементов: ',sp);
writeln('Сумма отрицательных элементов: ',so)
end.
Объяснение:
Задаём элементы массива через random
Если элемент больше 0, то считаем сумму положительных элементов, в противном случае считаем сумму отрицательных элементов (0 на сумму не влияют)
Выводим значение элемента на экран
Выводим суммы
Если 0 очень важны, то меняем строки:
if a[i] > 0 then sp:=sp+a[i]
else so:=so+a[i];
на:
if a[i] > 0 then sp:=sp+a[i];
if a[i] < 0 then so:=so+a[i];
var a,b,n:integer;
Begin
write('Введите начало интервала (a): '); readln(a);
write('Введите конец интервала (b): '); readln(b);
write('Введите шаг (n): '); readln(n);
a := a - n;
while (true) do Begin
a := a + n;
write(''+a);
if(a >= b) then break;
write(',');
End;
End.