с тестом, кто что знает) Какое будет значение переменной S после выполнения заданного фрагмента программы? S:='computer'; S:=Copy(S, Length(S) div 2, 3);'com''compu''puter''put'Чему будет равна величина b после выполнения фрагмента программы? a:='математика'; b:=pos('ка', а);10928Заполните пропуски так, чтобы значение переменной S после выполнения заданного фрагмента имело значение 'ритм': P:='алгоритмизация'; S:=Copy(…., …., ….);p, 5, 45, 4, p4, 5, pp, 4, 5s, 5, 4Чему будет равна величина b после выполнения фрагмента программы? a:='информатика'; b:=Length(a);Мой ответЧему будет равна величина b после выполнения фрагмента программы? a:='информатика'; b:=copy(a, 3, 3)+copy(a, 8, 1);инфорформафортформатЧему будет равна величина b после выполнения фрагмента программы? a:='информатика'; b:=pos('форма', а);Мой ответЗадана строка а:='телевизор'. Чему будет равна величина b после выполнения фрагмента программы? b:=copy(a, 1, 1)+'ре'+copy(a, 7, 3);ревизорвиззоревизорретрезорКакое будет значение переменной S после выполнения заданного фрагмента программы? S:='program'; Insert(Copy(S, 2, 2), S, 4);'prprogram''porprogram''program''prorogram'
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Вычислить сумму первых десяти натуральных неяетных чисел в паскаль
Автор: Валентинович133
var a,n,i,s:integer;
begin
write('Число элементов последовательности ');
readln(n);
for i:=1 to n do begin
write(i,' элемент последовательности = ');readln(a);
if (a mod 2 <>0) then s:=s+a;
end;
writeln('Сумма нечетных = ',s);
end.
Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9