а) Функция возвращает длину строки, k = 10
б) Возвращает 4 символа начиная с 4-го из строки Str1, s = ' ned'
в) Удаляет из Str1 2 символа начиная с4-го, Str1 будет = 'denedeli'
г) Вставляет Str1 в Str2 начиная с третьего сивола, Str1 не изменится, Str2 будет = 'deden nedeli'
д) Возвращает позицию Str1 в Str2. В Str2 нет Str1, значит функция вернет 0
Не будь авк будут ответы быстрее идти это мой совет
10. d
11. Мотоцикл
12. 2
13. 2
14. 3
15. 1,2
16. 2
17. с
18. b
Блогсхема:
Начало
Действие 1
Действие 2
Конец
Можешь написать алгоритмы:
Собирание в школу
Заправление постели
Поливание цветка
И т.д
{все строки с фигурными скобками можно удалить, это комментарии, которые на программу не влияют}
var
a: array[1..10]of real;
i,k:integer;t:real;
begin
writeln('Введите t');
{На экране появится текст "Введите t"}
readln(t);
{В этот момент появится курсор и можно будет ввести значение t}
writeln('Введите массив');
for i:=1 to 10 do
begin
readln(a[i]); {вводим элементы массива с клавиатуры}
if a[i]<t then {если элемент массива <t}
k:=k+1; {то считаем количество таких элементов}
end;
writeln;
writeln('количество: ',k);
end.