Ответ:
rs1 = золото
rs2 = промышленник
rs3 = пленник
rs4 = мышление
temp = ленник
На экране
золото промышленник пленник мышление
Объяснение:
Функция Copy возвращает подстроку строки (получается новая строка).
Copy(S, Index, Count)
S - строка. Index и Count - целые числа. Функция Copy копирует часть строки S начиная с буквы с номером Index содержащую Count букв.
Процедура Delete - удаляет подстроку из строки (изменяется указанная строка).
Delete(S, Index, Count)
S - строка. Index и Count - целые числа.Процедура Delete удаляет из строки S, начиная с буквы с номером Index - Count букв.
Функция Length - возвращает длину строки (получается целое число).
Length(S)
S - строка.
s = золотопромышленник
rs1 = copy (s,1,6) = золото
rs2 = copy (s, length(rs1)+1,length(s)-length(rs1) = copy (s,6+1,18-6) = copy (s,7,12) = промышленник
temp = s = золотопромышленник
delete (temp,1,12)
temp = ленник
rs3 = s[7]+temp = п+ленник = пленник
rs4 = s = золотопромышленник
delete (rs4,1,9)
rs4 = мышленник
delete (rs4,7,1)
rs4 = мышленик
rs4[length(rs4)] = rs4[5]
rs4[8] = rs4[5]
к = е
rs4 = мышление
Выводим слова на экран через пробел.
120, 210, 102, 201 . Один раз можно использовать число?
var
N, S: Integer;
begin
WriteLn ('Введите последовательность натуральных чисел, 0 - для окончания ввода:');
S := 0;
repeat
ReadLn (N);
if (N mod 6 = 0) and (N mod 10 = 6) then
S := S + N;
until N = 0;
WriteLn ('Сумма = ', S);
end.
Var a,b:real;
begin;
readln(a);
readln(b);
writeln(a+b);
writeln(a-b);
writeln(a*b);
end.
0,0041·10² = 0,41·10⁰
-16,78·10⁻³ = -0.1678·10⁻¹