Астестеройдес такого слова нету! вы наверно имеете ввиду астероид? то это - одна из малых планет, с диаметром 1тыс. км, пояс которых обращается вокруг солнца между орбитами марса и юпитера!

0 0

4 года назад

Cделать на языке паскаль Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За ско

morozovav1ka [21]

Var
v, u, h, d, vp: longint;

begin
readln(v, u, h);
vp := v - u;
d := h div vp;
if (h mod vp <> 0) then
inc(d);
writeln(d);
end.

0 0

1 год назад

Даны натуральное число n, символы s1, …,sn. Определить число вхождений в последовательностьs1, …,sn группы букв: а) abc. (Только

mixey06

CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
   n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
    IF MID$(S$, i, 3) = a$ THEN
       k = k + 1
    END IF
NEXT i
PRINT "k = "; k
END

0 0

4 года назад

Составить программу нахождения суммы всех нечетных отрицательных элементов массива,образованного случайными числами в диапазоне

Gennna

Const N = 5;
Var a:array [1..N] of integer; i,S:integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
a[i]:=random(61)-30;
if (a[i]<0) and (a[i] mod 2 <>0) then S:=S+a[i]; end;
writeln(S);
readln;
end.

0 0

4 года назад