Var y,x: string;
i,k: integer;
begin
k=0;
read (x);
for i:=1 to length(x) do
begin
y:=copy(x, i,3);
If (y='sin') then begin
delete (x, i, 3);
insert ('cos', x, i);
k:=k+1;
end;
writeln (x);
writeln (k);
end.
А)10010+128+32+16+1=10187
б)1100+8+2=1110
#include <iostream>
int main() {
short int n, n1, i, j;
long long int s, k, c;
std::cin >> n;
s = 0;
for (i = 1; i <= n; i++) {
std::cin >> n1;
c = 1;
k = 0;
for (i = 2; i <= n1; i++) {
k += c;
c++;
}
s += k;
}
std::cout << s << std::endl;
std::cin.get();
return 0;
}
program asd;
uses crt;
var
a,b,c:integer;
begin
writeln('Введите 3 числа');
readln(a); readln(b); readln(c);
if (a<b) and (a<c) then
begin
writeln('Минимальное ', a);
end
else
begin
if (b<c) then writeln('Минимальное ', b)
else writeln('Минимальное ', c);
end;
end.