4. по столбу высотой 1 метр ползут две неутомимые улитки. движутся они равномерно.
первая улитка в первую половину суток (период с 00: 00 до 12: 00) сползает на 30 см,
а во вторую половину суток (период с 12: 00 до 00: 00) поднимается на 50 см. вторая улитка
в период с 00: 00 до 12: 00 сползает на 5 см, а в период с 12: 00 до 00: 00 поднимается на 30 см.
какая улитка, первая или вторая, доберётся до верхушки столба раньше, и когда это
произойдёт, если они начали ползти от основания столба в понедельник в 12: 00? объясните
полученный ответ.
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.
n = 15;
var
x: array[1..n] of integer;
i, b, s: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Write('Введите значение b -> '); Readln(b);
s:=0;
for i := 1 to n do if x[i]>b then s:=s+b;
Writeln('Сумма элементов, больших ',b,', равна ',s)
end.
Тестовое решение:
Элементы массива
8 46 29 23 21 14 14 8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150
const
n = 15;
var
x: array[1..n] of integer;
i, b: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Write('Введите значение b -> '); Readln(b);
i:=1;
while (x[i]<>b) and (i<n) do Inc(i);
if x[i]=b then Writeln('x[',i,']=',b)
else Writeln('Нет элементов со значением, равным ',b)
end.
Тестовое решение:
Элементы массива
24 6 28 46 25 9 12 47 34 0 20 47 15 10 34
Введите значение b -> 20
x[11]=20